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INTRODUCTION 

The microcomputer system designer requiring a 
low-cost, non-volatile storage medium has a difficult 
choice. His options have been either relatively 
expensive, as with floppy discsand bubble memories, 
or non-transportable, like battery backed-up RAMs. 
The full-sized digital cassette option was open but 
many times it too was too expensive for the applica- 
tion. Filling this void of low-cost storage is the 
recently developed digital mini-cassette. These 
mini-cassettes are similar to. but not compatible 
with, dictation cassettes. The mini-cassette trans- 
ports are inexpensive (well under $100 in quantity), 
small (less than 25 cu. in.), low-power (one watt), 
and their storage capacity is a respectable 200K 
bytes of unformatted data on a 100-foot tape. These 
characteristics make the mini-cassette perfect for 
applications ranging from remote datalogging to 
program storage for hobbyist systems. 

The only problem associated with mini-cassette 
drives is controlling them. While these drives are 
relatively easy to interface to a microcomputer 
system, via a parallel I/O port, they can quickly 
overburden a CPU if other concurrent or critical 
real-time I/O is required. The cleanest and probably 



the least expensive solution in terms of development 
cost is to use a dedicated single-chip controller. 
However, a quick search through the literature 
turns up no controllers compatible with these new 
transports. What to do? Enter the UP1-41A family 
of Universal Peripheral Interfaces. 

The UPI-41A family is a group of two user- 
programmable slave microcomputers plus a com- 
panion I/O expander. The 8741A is the "flag-chip" 
of the line. It is a complete microcomputer with 
1024 bytes of E PROM program memory. 64 bytes of 
RAM data memory, 16 individually programmable 
I/O lines, an 8-bit event counter and timer, and a 
complete slave peripheral interface with two inter- 
rupts and Direct Memory Access (DMA) control. 
The 8041A is the masked ROM, pin compatible 
version of the 8741A. Figure 2 shows a block 
diagram common to both parts. The 8243 I/O port 
expander completes the family. Each 8243 provides 
16 programmable I/O lines. 

Using the UPI concept, the designer can develop a 
custom peripheral control processor for his par- 
ticular I/O problem. The designer simply develops 
his peripheral control algorithm usingtheUPI-41A 
assembly language and programs the EPROM of 




Figure 1. Comparison of Mini-Cassette and Floppy Disk Transports and Media. 
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Figure 2. 8741A/8041A Block Diagram 



the 8741A. Voila! He has a single-chip dedicated 
controller. Testing may be accomplished using 
either an ICE-41A or the Single-step mode of the 
8741A. UPI-41A peripheral interfaces are being 
used to control printers, keyboards, displays, custom 
serial interfaces, and data encryption units. Of 
course, the UPI family is perfect for developing a 
dedicated controller for digital mini-cassette tran- 
sports. To illustrate this application for the UPI 
family let's consider the job of controlling the 
V <temar CM-600 Mini-Dek®. 

THE CM-600 MINI-DEK® 

The Braemar CM-600 is representative of digital 
mini-cassette transports. It is a single-head, single- 
motor transport which operates entirely from a 
single 5-volt power supply. Its power requirements, 
including the motor, are 200ma for read or write 
and 700ma for rewind. Tapes speeds are 3 inches 
per second (IPS) during read or write, 5 IPS fast 
forward, and 15 IPS rewind. With these speeds and 
a maximum recording density of 800 bits per inch 
(BPI), the maximum data rate is 2400 bits per 
second (BAUD). The data capacity using both sides 
of a 100-foot tape is 200K bytes. On top of this, 



the transport occupies onlv 22.5 cubic inches 
(3"x3"x2.5"). 

All I/O for the CM-600 is TTL-compatible and can 
be divided into three groups: motor control, data 
control, and cassette status. The motor group con- 
trols are GO/STOP, FAST/SLOW, and FORWARD/ 
RE VERSE. The data controls are READ/ WRITE, 
DATA IN, and DATA OUT. The remaining 
group of outputs give the transport's status: CLEAR 
LEADER, CASSETTE PRESENCE, FILE PRO- 
TECT, and SIDE SENSOR. These signals, shown 
schematically in figure 3 and table 1, give the pin 
definition of the CM-600 16-pin I/O connector. 

RECORDING FORMAT 

The CM-600 does not provide either encoding or 
decoding of the recorded data; that task is left for 
the peripheral interface. A multitude of encoding 
techniques from which the user may choose are 
available. In this single-chip dedicated controller 
application, a "self-clocking" phase encodingscheme 
similar to that used in floppy discs was chosen. This 
scheme specifies that a logic "0" is a bit cell with no 
transition; a cell with a transition is a logic "1." 
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Table 1. CM-600 I/O Pin Definition 



Din 

rin 


l/U 


Function 


1 


— 


Index pin — not used 


2 


— 


Signal ground 


3 





Cassette side (0 — side B. 1— side A) 


4 


i 


Data input (0— space. 1— mark) 


5 





Cassette presence (0— cassette, 1— no 






cassette) 


6 


I 


Read/Write (0— read, 1— write) 


7 





File protect (0 — tab present, 1— tab 






removed) 


8 


— 


+5v motor power 


9 


— 


Power ground 


10 




Chassis ground 




I 
1 


Direction (0 — forward, 1 — rewind) 


12 


I 


Speed (0— fast, 1 — slow) 


13 





Data output (0— space, 1— mark) 


14 





Clear leader (0— clear leader, 1— off 






clear leader) 


15 


I 


Motion (0— go, 1— stop) 
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+5v logic power 
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Figure 3. Braemar CM-600™ Block Diagram 



Figure 4 illustrates the encoding of the character 
3AH assuming the previous data ended with the 
data line high. (The least significant bit is sent 
/irst.) Notice that there is always a "clocking" 
transition at the beginning of each cell. Decoding is 
simply a matter of triggering on this "clocking" 
transition, waiting 3/4 of a bit cell time, and 
determining whether a mid-cell transition has 
occurred. Cells with no mid-cell transitions are data 
0's: cells with transitions are data l's. This encoding 
technique has all the benefits of Manchester encod- 
ing with the added advantage that the encoded data 
may be "decoded by eyeball:" long cells are always 
0's, short cells are always l's. 

Besides the encoding scheme, the data format is also 
up to the user. This controller uses a variable byte 
length, checksum protected block format. Every 
block starts and ends with a SYNC character 
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Figure 4. Modified Phase Encoding of 
Character 3A Hex 



(AAH), and the character immediately preceeding 
the last SYNC is the checksum. The checksum is 
capable of catching 2 bit errors. The number of data 
characters within a block is limited to 64K bytes. 
Blocks are separated by an Inter-Record Gap (IRG). 
The IRG is of such a length that the transport can 
stop and start within an IRG, as illustrated in the 
data block timing, figure 5. Braemar specifies a 
maximum start or stop time of 150ms for the 
transport, thus the controller uses 450ms for the 
IRG. This gives plenty of margin for controlling the 
transport and also for detecting IRGs while skipping 
blocks. 

THE UPI-41A CONTROLLER 

The goal of the UPI software design for this applica- 
tion was to make the UPI-41 A microcomputer into 
an intelligent cassette control processor. The host 
processor (8086, 8088, 8085A, etc.) simply issues a 
high-level command such as READ-a-block or 
WRITE-a-block. The 8741 A accepts the command, 
performs the requested operation, and returns to 
the host system a result code telling the outcome of 
the operation, eg. Good-Completion, Sync Error, 
etc. Table 2 shows the command and result code 
repertoire. The 8741A completely manages all the 
data transfers for reading and writing. 

As an example, consider the WRITE-a-block com- 
mand. When this command is issued, the UPI-41A 
expects a 16-bit number from the host telling how 
many data bytes to write (up to 64K bytes per 
block). Once this number is supplied in the form of 
two bytes, the host is free to perform other tasks; a 
bit in the UPI's STATUS register or an interrupt 
output will notify the host when a data transfer is 
required. The 8741A then checks the transport's 
status to be sure that a cassette is present and not 
file protected. If either is false, a result code is 
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Figure 5. IRG/Block Timing Diagram (not to scale) 



Table 2. Controller Command/Result Code Set 



Command 


Result 


Read (01H) 


Good-Completion (00H) 
Buffer Overrun Error (41H) 
Bad Svnchl Error (42H) 
Bad Synch2 Error (43H) 
Checksum Error (44H) 
Command Error (45H) 
End of Tape Error (46H) 


Rewind (04H) 


Good-Completion (00H) 


Skip (03H) 


Good-Completion (00H) 
End of Tape Error (47H) 
Beginning of Tape Error (48H) 


Write (02H) 


Good -Completion (00H) 
Buffer Underrun Error (81H) 
Command Error (82H) 
End of Tape Error (83H) 



returned to the host; otherwise the transport is 
started. After the peripheral controller checks to 
make sure that the tape is off the clear leader and 
past the hole in the tape, it writes a 450ms IRG, a 
£ 1C character, the block of data, the checksum,, 
and the final SYNC character. (The tape has a clear 
leader at both ends and a small hole 6 inches from 
the end of each leader.) The data transfers from the 
host to the UPI-41 A slave microcomputer are double 
buffered. The controller requests only the desired 
number of data bytes by keeping track of the count 
internally. 

If nothing unusual happened, such as finding clear 
leader while writing, it returns a Good-Completion 
result code to the host. If clear leader was encoun- 
tered, the transport is stopped immediately and an 
End-of-Tape result code is returned to the host. 
Another possible error would be if the host is late in 
supplying data. If this occurs, the controller writes 



an IRG, stops the drive, and returns the appropriate 
Data-Underrun result code. 

The READ-a-block command also provides error 
checking. Once this command is issued by the host, 
the controller checks for cassette presence. If 
present, it starts the transport. The data output 
from the transport is then examined and decoded 
continuously. If the first character is not a SYNC, 
that's an error and the controller returns a Bad- 
First-SYNC result code (42H) after advancing to 
the next IRG. If the SYNC is good, the succeeding 
characters are read into an on-chip 30 character 
circular buffer. This continues until an IRG is 
encountered. When this occurs, the transport is 
stopped. The controller then tests that the last 
character. If it is a SYNC, the controller then 
compares the accumulated internal checksum to 
the block's checksum, the second to the last character 
of the block. If they match, a Good-Completion 
result code (00H) is returned to the host. If either 
test is bad, the appropriate error result code is 
returned. The READ command also checks for the 
End-of-Tape (EOT) clear leader and returns the 
appropriate error result code if it is found before the 
read operation is complete. 

The 30 character circular buffer allows the host up 
to 30 character times of response time before the 
host must collect the data. All data transfers take 
place thru the UPI-41A Data Bus Buffer Output 
register (DBBOUT). The controller continually 
monitors the status of this register and moves 
characters from the circular buffer to the register 
whenever it is empty. 

The SKIP-n-blocks command allows the host to skip 
the transport forward or backward up to 127 
blocks. Once the command is issued, the controller 
expects one data byte specifying the number of 
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blocks to skip. The most significant bit of this byte 
selects the direction of the skip (0=forward, 
l = reverse). SKIP is a dual-speed operation in the 
forward direction. If the number of blocks to skip is 
greater than 8. the controller uses fast-forward (5 
IPS) until it is within 8 blocks of the desired 
location. Onge within 8 blocks, the controller 
switches to the normal read speed (3 IPS) to allow 
accurate placement of the tape. The reverse skip 
uses only the rewind speed ( 15 IPS). Like the READ 
and WRITE commands. SKIP also checks for EOT 
and beginning-of-tape (EOT) depending upon the 
tape's direction. An error result code is returned if 
either is encountered befr e the number of blocks 
skipped is complete. 

The REWIND command simply rewinds the tape to 
the BOT clear leader. The ABORT command allows 
the termination of any operation in progress, except 
a REWIND. All commands, including ABORT, 
always leave the tape positioned on an IRG. 

THE HARDWARE INTERFACE 

There's hardly any hardware design effort required 
for the controller and transport interface in figure 
6. Since the CM-600 is TTL compatible, it connects 



directly to the I/O ports of the UPI controller. If the 
two are separated (i.e. on different PC cards), it is 
recommended that TTL buffers be provided.) The 
only external circuitry needed is an LED driver for 
the DRIVE ACTIVE status indicator. 

The 8741A-to-ho0 interface is equally straightfor- 
ward. It has a standard asynchronous peripheral 
interface: 8 data lines (D„-D 7 ), read (RD). write 
(WR), register select (AO), and chip select (CS). 
Thus it connects directly to an 8086. 8088. 8085A. 
8080, or 8048 bus structure. Two interrupt outputs 
are provided for data transfer requests if the 
particular system is interrupt-driven. DMA transfer 
capability is also available. The clock input can be 
driven from a crystal directly or with the system 
clock (6MHz max). The UPI-41A clock may be 
asynchronous with respect to other clocks within 
the system. 

This application was developed on an Intel iSBC 
80/30 single board computer. The iSBC 80/30 is 
controlled by an 8085A microprocessor, contains 
16K bytes of dual-ported dynamic RAM and up to 
8K bytes of either EPROM or ROM. Its I/O comple- 
ment consists of an 8255A Programmable Parallel 
Interface, an 8251A Programmable Communica- 
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Figure 6. Controller/transport System Schematic 
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lions Interface, an 8258 Programmable Interval 
Timer, and an 8259A Programmable Interrupt 
Controller. The iSBC 80/30 is especially convenient 
for UPI development since it contains an uncom- 
mitted socket dedicated to either an 8041 A or 
8741 A, complete with buffering- for its I/O ports. 
The iSBC 80/30 to 8741A interface is reflected in 
figure 8. (Optionally, an iSBC 569 Digital Controller 
board could be used. The iSBC 569 board contains 
three uncommitted UPI sockets with an interface 
similar to that in figure 8.) 

Looking at the host-to-controller interface, the host 
sees the 8741 A as three registers in the host's I/O 
address space: the data register, the command 
register, and the status register. The decoding of 
these registers is shown in figure 7. All data and 
commands for the controller are written into the 
Data Bus Buffer Input register (DBBIN). The state 
of the register select input, AO, determines whether 
a command or data is written. (Writes with AO set 
1 are commands by convention.) All data and 
. suits from the controller are read by the host from 
the Data Bus Buffer Output register (DBBOUT). 



CS RD WR AO Register 
O O I O DBBOUT 
O O I I STATUS 
O I O O DBBIN (DATA) 
OIOI DBBIN (COMMAND) 
•XXX NONE 



Figure 7. 8741A/8041A Interface Register 
Decoding 
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Figure 8. Status Register Bit Definition 



The Status register contains flags which give the 
host the status of various operations within the con- 
troller. Its format is given in figure 8. The Input 
Buffer Full (IBF) and Output Buffer Full (OBF) 
flags show the Status of the DBBIN and DBBOUT 
registers respectively. IBF indicates when the 
DBBIN register contains data written by the host. 
The host may write to DBBIN only when IBF is 0. 
Likewise, the host may read DBBOUT only when 
OBF is set to a 1. These bits are handled automa- 
tically by the UPI-41A internal hardware. FLAGO 
(P ) and FLAG 1 (Fj) are general purpose flags 
used internally by the controller which have no 
meaning externally. 

The remaining four bits are user-definable. For this 
application they are DRIVE ACTIVE, FILE PRO- 
TECT, CASSETTE PRESENCE, and BUSY flags. 
The FILE PROTECT and CASSETTE PRESENCE 
flags reflect the state of the corresponding I/O lines 
from the transport. DRIVE ACTIVE is set whenever 
the transport motor is on and the controller is 
performing an operation. The BUSY flag indicates 
whether the contents of the DBBOUT register is 
data or a result code. The BUSY flag is set whenever 
a command is issued by the host and accepted by the 
controller. As long as BUSY is set, any character 
found in DBBOUT is a result code. Thus whenever 
the host finds OBF set, it should test the BUSY flag 
to determine whether the character is data or a 
result code. 



Notice the OBF and IBF are available as interrupt 
outputs to the host processor, figure 6. These outputs 
are self-clearing, that is, OBF is set automatically 
upon the controller loading DBBOUT and cleared 
auto mati cally by the host reading DBBOUT. Like- 
wise IBF is cleared to a by the host writing into 
DBBIN: set to a 1 when the controller reads DBBIN 
into the accumulator. 

The flow charts of figure 9 show the flow of sample 
host software assuming a polling software interface 
between the host and the controller. The WRITE 
command requires two additional count bytes which 
form the 16-bit byte count. These extra bytes are 
"handshaked" into the controller using the IBF flag 
in the STATUS register. Once these bytes are 
written, the host writes data in response to IBF 
being cleared. This continues until the host finds 
OBF set indicating that the operation is complete 
and reads the result code from DBBOUT. No 
testing of BUSY is needed since only the result code 
appears in the DBBOUT register. 

The READ command does require that BUSY be 
tested. Once the READ command is written into the 
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Figure 9. Host CPU Flow Charts for Commands When Polling is Used 



controller, the host must test BUSY whenever OBF 
is set to determine whether the contents of DBBOUT 
is data from the tape or the result code. 

The SKIP command requires the skip count byte. 
This byte iswritten into DBBIN after IBF has been 
cleared following the command. The host then waits 
until OBF is set indicating- the operation is complete 
and the result code is waiting in DBBOUT. The 
REWIND and ABORT commands only require 
that the host test OBF. Once set, the result code is 
ready in DBBOUT. 



The flow charts for an interrupt -driven system are 
simplified since no testing of OBF or IBF is required. 
The mere fact that an interrupt occurred implies 
that the corresponding bit in the STATUS REGIS- 
TER is set or cleared. 

THE CONTROLLER SOFTWARE 

The internal UPT41A software can be divided 
roughly into the various commands. (This software 
is discussed as flow charts. The actual program 
listing is included in Appendix A.) A command 
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recognizer simply wails for a command input by the 
host and then branches to the appropriate command 
routine. The command routine executes until the 
entire operation is complete and then branches 
back to the command recognizer. Since only one 
command routine is executing- at any one time, the 
working registers change function based upon which 
command is active. Figure 10 shows the register 
function and identifying name for each command. 
Notice that while most registers have completely 
different meanings depending upon the command, 
some registers retain their meaning over all com- 
mands. All registers were assigned names based on 
their function to aid programming and to make the 
listing easier to read. 

The READ and WRITE commands utilize the 
internal timer and event counter for all bit timing. 
This timer provides an internal interrupt on over- 
flow. Thus these commands can be thought of as 
containing both foreground and background (inter- 
rv ' service routine) tasks. These tasks communicate 
via general purpose registers assigned the function 
of internal status registers: WSTAT and RSTAT 
for the WRITE and READ commands respectively. 
The bit definition for these internal status registers 
is shown in figure 11. We will refer to these bits as 
the command routines are discussed. 



RE AD /SKIP/RE WIND COMMANDS 

• REGISTER BANK 

R0 LBOUT BUFFER OUTPUT POINTER 
R1 LBRDY BUFFER READY POINTER 
R2 NOT USED 

R3 CHKSUM CHECKSUM ACCUMULATOR 

R4 BLKCNT BLOCK COUNTER FOR SKIP 

R5 BLKTIM COUNTER TO TIME IRG DURING SKIP 

R6 BLKSAV BACKUP FOR BLKTIM 

R7 STAT IMAGE OF UPPER 4-BITS OF STATUS 

• REGISTER BANK 1 

R0 LBIN BUFFER INPUT POINTER 

R1 IRGCNT COUNTER TO TIME IRG DURING READ 

R2 RESULT RESULT CODE STORAGE 

R3 RSTAT READ STATUS REGISTER 

R4 BITCNT BIT COUNTER 

R5 DESERL DE SERIALIZER 

R6 RDATA READ DATA HOLDING REGISTER 

R7 ASAVE ACCUMULATOR STORAGE 



Figure 10B. Register Definition for READ, 
SKIP, and REWIND 
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Figure 10A. Register Definition for WRITE 



EL 
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Lj 



CKSFLG— CHECKSUM FLAG 
SYNFLG— SYNC FLAG 
WRDFLG — WRITE DONE FLAG 
NOT USED 
EOTFLG— EOT FLAG 
BOTFLG — BOT FLAG 
WRFLG— READ/WRITE FLAG 



Figure 11. READ and WRITE Internal Status 
Register Bit Definitions 
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WRITE COMMAND 

Let's look at the WRITE command routine first, 
figure 12. As was mentioned earlier, the WRITE 
requires two additional data bytes before it can be 
processed. Once the command recognizer branches 
to the WRITE routine, the routine waits on IBF 
until these bytes are written by the host. These 
count bytes are stored in the CNTLSB and CNTMSB 
(Count Least and Most Significant Byte) registers. 
These two registers are concatenated to form the 
16-bit byte count. At this point, the routine tests the 



transport status lines. CASSETTE PRESENCE 
and FILE PROTECT. If there is no cassette present 
or the tape is write protected, the routine exits 
immediately after resetting BUSY and loading 
DBBOUT with the appropriate error result code. 
Assuming the transport status is correct, the other 
registers required by the routine are initialized: the 
bit counting register (BITCNT) is set to 8; the 
checksum accumulator (CHKSUM) is cleared: the 
data holding register (SERIAL) is loaded with the 
first SYNC character. The internal timer counter is 
then loaded with a value which will cause an 
internal timer interrupt in one half of a bit-cell 
time, but not activated. 

Next, the EOT flag in WSTAT is examined to see if 
we are trying to write while at the end of the tape. 
(EOTFLG is set to 1 if EOT was encountered during 
the last operation.) If an error occurred, the routine 
exits after resetting BUSY and loading DBBOUT 
with the EOT-while-write result error code (83H) 
via the result storage register. RESULT. Assuming 
EOTFLG is not set, the DRIVE ACTIVE flag in the 
Status register is set and the transport is started. 
The BOT flag (BOTFLG) in WSTAT is then tested 
to see if we are at the beginning of the tape.) If 
BOTFLG isO, the routine writes a 450ms IRG using 
a software delay loop. If BOTFLG is 1. the routine 
waits until the clear leader and hole in the tape are 
passed before starting the IRG. WSTAT is then 
loaded with 80H. This resets EOTFLG and BOTFLG 
and sets the write and read flag, WRFLG. WRFLG 
tells the interrupt routines that a write operation is 
active. As we shall see, the interrupt routine tells 
the foreground task that the write operation is 
complete by resetting WRFLG. At this point the 
routine starts the timer and enters a loop continually 
testing WRFLG. If WRFLG is 1, the routine simply 
loops. 

Now let's look at the write routine that does all the 
work: the write timer interrupt service routine. 
When the timer interruptoccurs half a bit-cell time 
later, an automatic vector to the INT routine is 
performed (location 07H in program memory). INT 
test WRFLG to see whether it's a read or write 
operation in progress and branches accordingly. 
Since we are talking about a write operation, the 
branch is to the WRINT routine, figure 13. WRINT 
first reloads the timer to provide the timing for the 
next half cell (the timer continues to run). The F is 
used to define whether this particular interrupt is 
for the first or the second half of the bit cell. The 
phase encoding algorithm used specifies that the 
beginning of a bit must always have a transition. If 
F n is reset, the data output to the transport is simply 



( WRITE ) 

, -HZ. , 

WAIT FOR COUNT LSB. 
LOAD INTO CNTLSB 

1 

WAIT FOR COUNT MSB, 
LOAD INTO CNTMSB 




INITIALIZE REGISTERS 
AND TIMER 




BUSY = 0. 
DBBOUT RESULT 

I 

( EX ' T ) 



Figure 12. WRITE Command Flow Chart 
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( WRINT J 

■ ^ 

RELOAD AND START TIMER 



COMPLEMENT DATA OUT 

n — — 



RESULT GOOD-COMPLETION 



^ RETURN^ 



STOP DRIVE. 
WRFLG 



L 



GET NEXT BIT FROM SERIAL 
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0. 
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0. 
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DBBIN |-« 








| CHECKSUM CHECKSUM - SERIAL 




CKSFLG - 1 



T 



SERIAL CHECKSUM 



T 



RESULT UNDERRUN ERROR 



^ return") 



f return") 



STOP DRIVE. 
WRFLG = 



Q return) 



Figure 13. WRINT— Write Timer Interrupt Routine Flow Chart 



complemented providing the transition. If set, the 
interrupt is at the mid-cell position. If the data bit is 
a 1, complement the data output; otherwise, do not 
change it. F () is complemented every interrupt. 

The CLEAR LEADER input from the transport is 
also tested on every interrupt. If it was encountered, 
the transport is stopped, the EOTFLG in WSTAT is 
set, WRFLG is reset, and RESULT is loaded with 
the EOT-while-write error result code (83H). 
WRINT returns to the main write loop. 



The data contained in the SERIAL register is 
shifted out bit-by-bit at every other timer interrupt 
(those interupts with F set to a 1) until the BITCNT 
register indicates that all 8 bits have been shifted 
out. When this occurs, a 16-bitdecrement operation 
on the CNTMSB and CNTLSB registers is per- 
formed. If the result is non-zero, the routine transfers 
the next data byte from DBBIN to SERIAL. If the 
host is late in geting the next byte into DBBIN, a 
Write-Underrun error (81H) occurs. Like the other 
error conditions, WRFLG in WSTAT is reset and 
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the Write-Underrun error result code is loaded into 
the result holding register, RESULT, before return- 
ing to the main write loop. If the data is ready in 
DBBIN, it is transferred to SERIAL and added to 
the accumulating checksum. The routine then re- 
turns to the write main foreground task. (Remember 
that the foreground task is doing nothing more than 
testing WRFLG.) 

If the decrement result is zero, all data transfers are 
complete. The accumulated checksum value is 
loaded into Serial and the Checksum flag, CKSFLG, 
is set in WSTAT before exiting the interrupt 
routine. This causes the checksum value to be 
written onto the tape. Sixteen timer interrupts later 
the checksum is complete; it is now time to write the 
final SYNC. CKSFLG is reset, a SYNC character is 
loaded into SERIAL, and the SYNC flag(SYNFLG), 
is set in WSTAT. Sixteen more timer interrupts 
later the SYNC is written to the tape and the block 
is almost finished. One more interrupt is needed to 
finish the last bit. The write done flag (WRDFLG) is 
_dt to indicate that this is the last interrupt for this 
block. WRDFLG is detected as being set to a 1 on the 
next interrupt and the transport is stopped. WRFLG 
in WSTAT is reset and the Good-Completion result 
code is loaded into the RESULT register before 
exiting to the foreground task. 

All this occurs while the foreground task is testing 
WRFLG. When WRFLG is cleared, the foreground 
task "knows" that the background task is finished; 
BUSY is reset and the result code stored in RESULT 
is loaded into DBBOUT. The program then returns 
to the command recognizer. 

READ OPERATION 

In the case of the read command, figure 14, the 
RSTAT register provides the communication be- 
veen the foreground and background tasks. The 
read command routine starts out by initializing the 
registers it requires: the checksum accumulator, 
CHKSUUM, is cleared; pointers for the circular 
buffer, DBIN, LBRDY, and LBOUT are set to the 
start of the buffer; and the bit counter, BITCNT, is 
set to 8. 

The circular buffer has three pointers: LBIN to 
point to the next free buffer location, LBOUT to 
point to the next location from which to retrieve 
data, and LDRTDY to trail LBIN by two locations. 
LBRDY trails LBIN to ensure that the host does not 
get the received checksum or last SYNC bytes as 
data. The buffer is empty whenever LDRDY equals 
LBOUT. The buffer is full whenever LBOUT minus 
1 equals LBIN. Data is placed in the buffer by 



loading it into the location pointed at by LBIN and 
then LBIN is incremented. Data is removed from 
the buffer at the location pointed at by LBOUT and 
the LBOUT is incrementd by one. The data memory 
locations 20H thru 3FH form the circular buffer. 
Any pointer increment or decrement operation 
limits the pointers to this range. (If a pointer at 3FH 
is incremented, the result wraps around to 20H.) 

Once the registers have been initialized, the timer is 
loaded, but not started, with a value that corresponds 
to 3/4 of a bit-cell time. Next, the EOT test is 
performed on the EOTFLG in RSTAT. The routine 
exits with an EOT-while-read error result code if an 
attempt to read is made while at EOT. If not. the 
transport is started and the BOTFLG is tested to see 
if it must move past the clear leader and hole. Once 
past the clear leader and hole, if necessary, the 
SYNC-Next-Byte flag (SNBFLG). and the' Start 
flag(SRTFLG), are set in RSTAT. SNBFLG informs 
the software that the next received byte should be a 
SYNC. SRTFLG prevents LBRDY from being 
incremented prematurely. 

As soon as a transition from mark (1) to space (0) is 
detected, the timer is started. The routine enters a 
loop which tests the data ready flag (RDYFLG), the 
IRG found flag (IRGFLG), and the EOT detected 
flag (EOTFLG) in RSTAT. These flags are set by 
the background task to communicate with the 
foreground. RDYFLG is set when a character has 
been assembled and is waiting in the holding 
register, RDATA. IRGFLG is set when an IRG has 
been found by the background task. EOTFLG has 
the same meaning as with the write command; the 
clear leader at the end of the tape has been found. 

If none of these flags are set, the foreground then 
looks at the circular buffer to see if it contains any 
data to output to the host. The buffer contains data 
when LBIN does not equal LBOUT. If these pointers 
are equal, the buffer is empty and the foreground 
task just continues to loop. If they are not equal, 
there is some data left in the buffer. OBF is tested to 
see if DBBOUT is free to accept more data. If it is 
free, the character pointed at by LBOUT is trans- 
fered to DBBOUT and LBOUT is incremented to 
the next location. If DBBOUT still contains pre- 
viously loaded data (OBF set), the foreground con- 
tinues to test the flags in RSTAT. 

When the foreground task finds RDYFLG set, data 
is available in RDATA. Before transfering this data 
into the buffer, it first compares LBIN and LBOUT. 
If LBOUT is one less than LBIN, the buffer is full 
and no more data can be loaded. This is an error 
condition; the read operation is aborted and the 
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Figure 14. READ Command Routine Flow Chart 
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transport is moved to the next IRG using the SKIP 
routine discussed below. Once at the next IRG, 
BUSY is reset and the Read-Overrun error result 
code (41H) is placed in DBBOUT. This terminates 
the read operation and the routine branches back to 
the command recognizer. 

If the buffer is not full, the data is transfered from 
RDATA to the location pointed to by LBIN. LBIN is 
incremented and the RDYFLG in RSTAT is reset. 
LBRDY is also incremented if LBIN has been 
incremented twice already. (SRTFLG set prevents 
LBRDY from being incremented. SRTFLG is reset 
when LBIN is incremented to the second buffer 
position.) This ensures that LBRDY will point to the 
last data byte once an IRG is detected. The data is 
also added to the accumulated checksum, CHKSUM. 
The foreground then goes back to test the RSTAT 
flags. When IRGFLG is found set, the background 
task has found an IRG and stopped the transport. 
This indicates that the block read is complete. Since 
the IRG occurs after the checksum and final SYNC 
characters, these two bytes are in the circular 
buffer. To test them the foreground task then 
decrements LBIN to point at the final SYNC and 
checks if it is a SYNC character. If not, a Bad-Sync2 
error result code (43H) is placed in RESULT and 
the routine branches to the read exit routine. If it is 
okay, a SYNC is removed from the accumulated 
checksum. LBIN is decremented again to point to 
the received checksum. Since this character is also 
in the accumulated checksum, it is subtracted out. 
Now the accumulated checksum reflects only the 
received data so it is compared with the received 
checksum. If they are equal, the data is presumed 
good and a Good-Completion result code (00H) is 
loaded into result. If not, an error has occured and 
the RESULT is loaded with the Bad-Checksum 
result code (44H). 

\lthough the actual read operation is complete with 
respect to the transport, there may still be data 
remaining in the buffer of the controller. The read 
exit routine loops testing LBOUT and LBRDY and 
transfering data from the buffer into DBBOUT 
until the buffer is empty. Once the buffer is empty, 
BUSY is reset and the result code is transferred 
from RESULT to DBBOUT, completing the read 
operation. 

The timer interrupt routine, RDINT, for the read 
operation is shown in figure 15. The phase decoding 
algorithm specifies that the timer start at the 
beginning transition of the bit cell. It waits for 3/4 of 
a bit cell before sampling the data input. If the data 
input is the same as immed iately after the beginning 
transition, the data bit is a 0. If it is different, the 



data bit is a 1 . The timer interrupt routine compares 
the present state of the data input to the state 
immediately following the beginning transition. F„ 
stores this value and shifts it into the de-serializing 
register (DESERL). Once 8 bits have been accumu- 
lated, the RDYFLG is set to inform the foreground 
that a character is complete. This character is then 
transfered from DESERL to the holding register, 
RDATA. 

After the interrupt routine has sampled and shifted 
in the bit, it looks for the beginning transition of the 
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START TIMER M FO DATAIN 
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( RETURN*) 



Figure 15. RDINT— Read Timer Interrupt 
Routine Flow Chart 



13 



next bit cell. While looking for this transition, it 
keeps track of time be decrementing a counter 
called IRGCNT. If this counter reaches zero, no 
transition has occured within a certain amount of 
time (this application used two bit cell times): this is 
defined asthebeginningof an IRG. When an IRG is 
found, the transport is stopped and the IRGFLG is 
set in RSTAT before exiting the interrupt service 
routine. If a transition is found before the counter 
times out, the routine exits setting F () to the data 
input state after the transition. F is used for 
storing the state while in the foreground. As in the 
write operation, the CLEAR LEADER input is also 



tested every interrupt. If an EOT is found. EOTFLG 
is set and the transport is stopped. 

SKIP OPERATION 

The same technique for finding IRGs is used in the 
SKIP command routine. The SKIP command, figure 
16, causes the transport to skip forward or reverse a 
specified number of IRGs. The number of IRGs to 
skip is indicated by the byte following the SKIP 
command byte acceptance (i.e. BUSY has been set 
and IBF is 0). The SKIP command routine waits, 
loopingon IBF, until the IRG skip count is loaded by 
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RESULT EOT 
ERROR 




RESULT BOT 
ERROR 
















WAIT UNTIL 
PAST HOLE 



SELECT FAST 
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DBBOUT GOOD-COMPLETION 



( EX ' T ) 



Figure 16. SKIP Command Routine Flow Chart 
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the host. Then it is transferred from DBH1N to the 
skip count register, BLKCNT. The usual EOT and 
BOT tests are performed to ensure it doesn't skip 
forward when at EOT or reverse when at BOT. The 
transport is then started in the direction indicated 
by bit 7 of the BLKCNT value. (This bit is masked 
off after the initial direction test.) 

For reverse skips, the skipping subroutine, SKIPER, 
is called. It advances the transport to the next IRG 
using the IRGCNT technique described above. 
When SKIPER returns, BLKCNT is decremented 
and tested for zero. If non-zero, SKIPER is called 
repeatedly until BLKCNT is zero. Once zero, the 
transport is stopped and BUSY is reset. DBBOUT 
is loaded with a Good-Completion result code (00H). 

When doing forward skips, the software takes 
advantage of the fact that the transport can recog- 
nize IRGs during fast forward. If the BLKCNT is 
greater than 8, fast forward is selected instead of 
slow and SKIPER is called. (The IRGCNT value is 
modified to take into account the faster tape speed.) 
When SKIPER returns, BLKCNT is decremented 
and tested both for being less than 8 or equal to zero. 
Once BLKCNT is less than 8, the slow speed is 
selected. Once BLKCNT reaches 0, the operation is 
terminated like the reverse skips. The transport is 
stopped and BUSY is cleared. DBBOUT is loaded 
with a Good-Completion result code. 

As with both READ and WRITE commands, the 
clear leader test is made periodically to ensure that 
no skips are made past the end or beginning of the 
tape. The appropriate error result code is issued if 
CLEAR LEADER is found set. RSTAT is loaded 
with the appropriate EOTFLG bit set. 

REWIND OPERATION 

The REWIND command routine, figure 17, simply 
sets the transport to fast rewind and loops until 
clear leader is found for greater than 50ms. (The 
hole at the ends of the tape is guaranteed not to 
cause the clear leader input to be active for more 
than 50ms.) Once the tape's clear leader is found; 
the transport is stopped; BUSY is reset. A Good- 
Completion result code is loaded into DBBOUT. 
Also, since the transport is now at the BOT, the 
BOTFLG is RSTAT is set. 

ABORT OPERATION 

The final command is the ABORT command. It 
does not have a separate flow chart of its own. All 
other commands monitor IBF periodically during 




BUSY 1. DRIVEACTIVE 1 

t ~ 

I SELECT REWIND FAST I 



START TRANSPORT 



WAIT 50MS 




STOP TRANSPORT 



BOTFLG 1 
DBBOUT GOOD-COMPLETION 



| BUSY 0. DRIVEACTIVE 

C EX|T ) 



Figure 17. REWIND Command 
Routine Flow Chart 

their execution. If a command is found, the command 
is compared to the ABORT command code. If it is 
found, the routine in execution is stopped and 
BUSY is reset. The Abort-Complete result code is 
placed in DBBOUT. The aborted routine does 
ensure that it exits gracefully. An aborted READ or 
SKIP advances to the next IRG before stopping; 
WRITE records an IRG before stopping. 

WRAPPING IT UP 

The program listing follows in Appendix A. For 
more information on the UPI-41A family, see the 
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referenced manuals on the cover of this application 
note. For those readers who would like to use or 
modifv this program but don't want to type in 
nearly IK bytes of code, source files are available 
through the Intel Users Library. INSITE. (Contact 
your local Intel sales office for information on 
INSITE.) A sample of other UPI-41A programs 
available thru the INSITE library are: 



Seiko printer controller 
Olivetti printer controller 
LRC printer controller (8295) 
Sensor matrix controller 
LED display controller 
Combination serial/parallel I/O 
Programmable keyboard/display controller 
GPIB controller (8292) 
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A5M48 Fl DIGCAS ASM NOOBJECT PRINT( LP ) 



IS1S-II MCS-48/UPI-41 MACRO ASSEMBLER, V3 
DIGITAL CASSETTE CONTROLLER REV 1 - 26 MARCH BO 

LOC OBJ LINE SOURCE STATEMENT 

1 SMACROFILE M0D41A TITLE( 'DIGITAL CASSETTE CONTROLLER REV 1 O - 26 MARCH 80 

3 . •.«..««•**♦*«•♦••«•*.••»•**««••«♦«*..«♦.*.....»....»»»«».......».«♦*♦♦« 

4 : 

5 , UPI-41A DIGITAL CASSETTE CONTROLLER FOR THE BRAEMAR CM-600 

6 , 

7 , »•♦»♦•»♦♦«♦♦«»«•»«•«•»*♦♦*«•»•»««««•«««•«•.#*.«...♦«...«.*..»♦»»•««•«»• 

8 . 

9 .THIS UPI-41A BASED PROGRAM CONTROLS A BRAEMAR CM-600 M I NI -CASSETTE 

10 .THE PROGRAM ALLOWS THE HOST CPU TO SIMPLY ISSUE COMMANDS SPECIFYING 

11 . READ-A-BLOCK, WR I TE- A-BLOCK. SKIP FORWARD OR REVERSE N BLOCKS. 

12 . REWIND. AND ABORT THE UPI-41A HANDLES ALL DATA REQUESTS AND MONITORS 

13 . THE CASSETTE DRIVE FOR ERRORS. EG WRITING TO THE END-OF-TAPE. ETC 

14 ; EACH COMMAND SETS THE CONTROLLER IN THE BUSY CONDITIONS ONCE THE 

15 ; OPERATION IS COMPLETE. THE UPI-41A RESETS IT'S BUSY FLAG AND LOADS THE 

16 i OUTPUT DATA BUFFER WITH A RESULT BYTE WHICH INDICATES THE RESULT 

17 , OF THE REQUESTS OPERATION THE COMMANDS AND RESULT CODES ARF SHOWN 
IB . IN THE SYSTEMS EQUATES 

19 i 

20 .THE CONTROLLER USES A MODIFIED PHASE ENCODING WHERE DATA O'S ARE LONG 

21 .(FULL BIT TIME) CELLS AND DATA l'S HAVE TRANSITIONS AT THE MID-BIT CELL 

22 iPOSITION WHEN WRITING. ALL BLOCKS ARE PREFACED AND CONCLUDED WITH 

23 , SYNC CHARACTERS (OAAH) A CHECKSUM BYTE IMMEDIATELY PRECEEDS THE 

24 i FINAL SYNC WHEN READING. THE CONTROLLER TESTS THE VALIDITY OF 

25 ; BOTH SYNC CHARACTERS AND THE CHECKSUM 

26 . INTER-RECORD GAPS (IRG) ARE WRITTEN WITH ALL MARK (DATA OUT - 1) 

27 . 

28 ; THE WRITE-A-BLOCK OPERATION IS DOUBLE BUFFERED WHILE THE READ— A— BLOCK 

29 .OPERATION USES A 30-CHARACTER CIRCULAR BUFFER TO MINIMIZE CPU 

30 .RESPONSE TIME REQUIREMENTS 

31 i 

32 *EJECT 

33 

34 l 

35 i REGISTER EQUATES - THE WRITE AND READ/SKIP OPERATIONS ARE DISTINCT 

36 .THEREFORE THE SAME PHYSICAL REGISTER MAY BE USED FOR DIFFERENT 

37 .PURPOSES IN EACH OPERATION EACH OPERATION USES DIFFERENT REGISTER 

38 ; LABELS FOR CLARITY 

39 -. 

40 .»***»#*«***»***»♦««**###**#**«»*«*»*#»**»«*****»«**»***■»»******»*#♦#*» 

41 , 





42 




WRITE 


- RBO 






43 










0000 


44 


CNTLSB 


EQU 


RO 


BYTE COUNTER LSB 


0001 


45 


CNTMSB 


EQU 


Rl 


BYTE COUNTER MSB 


0002 


46 


CMDSAV 


EQU 


R2 


COMMAND SAVER 


0003 


47 


CHKSUM 


EQU 


R3 


CHECKSUM REGISTER 


0004 


48 


TEMPI 


EQU 


R4 


TEMPORARY STORAGE 




49 






R5 


DELAY REGISTER 




50 






R6 


DELAY REGISTER 


0007 


51 


STAT 


EQU 


R7 


STS IMAGE 




52 












53 




WRITE 


- RBI 






54 












55 






RO 


NOT USED 




56 






Rl 


NOT USED 


0002 


57 


RESULT 


EQU 


R2 


RESULT STORAGE 


0003 


58 


WSTAT 


EQU 


R3 


WRITE STATUS REG I 


0004 


59 


BITCNT 


EQU 


R4 


WRITE BIT COUNTER 


0005 


60 


SERIAL 


EQU 


R3 


WRITE SERIALIZER 


0006 


61 


TEMPO 


EQU 


R6 


TEMPORARY STORAGE 


0O07 


62 


ASAVE 


EQU 


R7 


ACCUMULATOR SAVE 



63 l 

64 i *#*#**********##*#********#***»#**»««#*»»»***#»#*#********»*»********** 

65 . 

66 , READ/SKIP - RBO 

67 . 



0000 


68 


LBOUT 


EQU 


RO 


NEXT BYTE OUTPUT POINTER 


0001 


69 


LBRDY 


EQU 


Rl 


NEXT BYTE AVAILABLE POINTER 




70 






R2 


NOT USED 




71 


, CHKSUM 


EQU 


R3 


CHECKSUM REGISTER (SAME FOR WRITE 


0004 


72 


BLKCNT 


EQU 


R4 


BLOCK COUNTER FOR SKIP 


0005 


73 


BLKTIM 


EQU 


R5 


BLOCK IRG TIMER FOR SKIP 


0006 


74 


BLKSAV 


EQU 


R6 


BLOCK IRG TIMER SAVE 




75 


, STAT 


EQU 


R7 


STS IMAGE (SAME FOR WRITE) 




76 
77 




READ/SKIP - RBI 






78 










0000 


79 


LB IN 


EQU 


RO 


NEXT BYTE INPUT POINTER 


0001 


80 


IRGCNT 


EQU 


Rl 


IRG TICK TIMER 




81 


, RESULT 


EQU 


R2 


RESULT STORAGE (SAME FOR WRITE) 


0003 


82 


RSTAT 


EQU 


R3 


READ STATUS REGISTER 




83 


. BITCNT 


EQU 


R4 


READ BIT COUNTER (SAME FOR WRITE) 


0005 


84 


DESERL 


EQU 


R5 


READ DE-SER I AL I ZER 


0006 


85 


RDATA 


EQU 


R6 


READ DATA BUFFER 




86 


. ASAVE 


EQU 


R7 : ACCUMULATOR SAVE (SAME FOR WRITE) 



87 , 

18 



ISIS-II HCS-48/UP 1-4 1 MACRO ASSEMBLER, V3 
DIGITAL CASSETTE CONTROLLER REV 1 - 26 MARCH 80 

LOC OBJ LINE SOURCE STATEMENT 

88 ,***»»»»•*#»«»****#*«#**#»»«**#«*****#«#**»«#*«#«»#«»*»*«*#«*•«»*«#*«**« 

89 , 

90 i STATUS REGISTER BIT DEFINITIONS 

91 , THE MAJOR OPERATIONS. WRITE AND READ, USE THE TIMER TO DETERMINE 

92 .ALL BIT-CELL TIMING AND TO PERFORM THE SER I AL -TO-PARALLEL CONVERSIONS 

93 , THE TIMER INTERRUPT SERVICE AND MAIN ROUTINES COMMUNICATE VIA 

94 ; GENERAL PURPOSE REGISTERS USED AS STATUS REGISTERS 

95 , 

96 .STAT IS THE STS REGISTER IMAGE SINCE THE UPI CAN'T READ STS DIRECTLY. 

97 . ( ONLY THE HIGH ORDER 4-BITS OF STAT ARE USED ) 
9B , THE LOWER 4-BITS ARE NOT USER -DEF I N ABLE. 

99 i 

100 i **#*#***#«■*«*«■»*##*#»**#»***#****»*#»*******»********#**»*##**«**#****« 



i u j . 

102 , WSTAT - WRITE STATUS REGISTER 

103 , 

104 , W5TAT0 CHECKSUM FLAG ( CKSFLG ) - CHECKSUM BYTE BEING SENT 

105 , 1 SYNC FLAG (SYNFLG) - FINAL SYNC BYTE BEING SENT 

106 i 2 WRITE DONE FLAG (WRDFLG) - FINAL SYNC IS BEING SENT 

107 , (ENSURES LAST BIT IS COMPLETE ) 

108 , 3 NOT USED 

109 ; 4 NOT USED 

110 , 5 END OF TAPE FLAG (EOTFLG) - EOT WAS FOUND. TAPE IS NOW AT EOT 

111 , 6 BEGINNING OF TAPE FLAG ( BOTFLG ) - BOT WAS FOUND, TAPE IS NOW AT BOT 

112 . 7 WRITE/READ FLAG ( WRFLG ) - WRITE OR READ OPERATION IS ACTIVE 
113. 

114 i RSTAT - READ STATUS REGISTER 

115 i 

116 i RSTATO DATA READY FLAG ( RDYFLG > - NEXT BYTE IS READY IN RDATA 

117 1 1 SYNC NEXT BYTE FLAG (SNBFLG) - NEXT BYTE SHOULD BE A SYNC 

118 ; 2 START FLAG ( SRTFLG ) - BEGINNING OF READ, DON'T INC LBRDY 

119 j UNTIL LBIN=22 

120 I 3 IRG FOUND FLAG (IRGFLG) - IRG WAS FOUND BY TIMER INTERRUPT ROUTINE 

121 ,• 4 NOT USED 

122 i 5 END OF TAPE FLAG (EOTFLG) - EOT WAS FOUND, TAPE IS NOW AT EOT 

123 i 6 BEGINNING OF TAPE FLAG (BOTFLG) - BOT WAS FOUND, TAPE IS NOW AT BOT 

124 i 7 WRITE/READ FLAG (WRFLAG) - WRITE OR READ OPERATION IS ACTIVE 

125 . 

126 ; STAT - STS IMAGE 

127 . 

128 i STATO OBF - OUTPUT BUFFER FULL 

129 i 1 IBF - INPUT BUFFER FULL 

130 ; 2 FO - GENERAL PURPOSE FLAG (USED INTERNALLY) 

131 i 3 Fl - COMMAND/DATA FLAG 

132 , 4 DRIVE ACTIVE - MOTOR ON 

133 . 5 FILE PROTECT - DRIVE 'STATUS 

134 i 6 CASSETTE PRESENCE - DRIVE STATUS 

135 . 7 BUSY - CONTROLLER PERFORMING OPERATION 

136 i 



137 *EJECT 

1 38 j **»** ******»#» **»»«#********#•* **#»**»♦#*«*##**#»»#*■«#*»#*»##***##**»»** 

139 . 

140 . PORT DEFINITION 

141 ; 
142 
143 ; 



144 iPORTIO - DIRECTION (0-FORWARD, l-REWIND) 

145 . 11 - MOTION (0-GO, 1-STOP) 

146 ; 12 - SPEED (O-FAST, 1-SLOW) 

147 . 13 - READ/WRITE (O-READ, 1-WRITE) 

148 } 14 - CLEAR LEADER (0-OFF LEADER, 1-ON LEADER) 

149 : 15 - FILE PROTECT (O-TAB PRESENT, 1-NO TAB 

150 , 16 - PRESENCE ( O-TAPE IN WITH DOOR CLOSED, 1-NO TAPE) 

151 , 17 - NOT USED 

152 ; 

153 , P0RT20 - DATA OUT TO CASSETTE (O-SPACE, 1 -MARK ) 

154 . 21 - DRIVE ACTIVE LED ( O-ON, 1 -OFF ) 

155 , 22 - NOT USED 

156 , 23 - NOT USED 

157 . 24 - OBF INTERRUPT OUTPUT 

158 : 25 - IBF/ INTERRUPT OUTPUT 

159 ; 26 - NOT USED 

160 , 27 - NOT USED 

161 , 

162 ,TEST1 - DATA IN FROM CASSETTE 

163 , 



164 *EJECT 
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LOC OBJ 


LINE 




SOURCE 


STATEMENT 






165 












166 














167 


i SYSTEM 


EQUATES 








168 














169 


, «.»•.♦•«»»«...♦♦.««»»*•»♦«*♦«»•»«•**«.....»..«♦...„»„..»„»<,.„„„..»»..» 




170 














171 


.WRITE 


SYSTEM 


EQUATES: 






172 












0001 


173 


CKSFLG 


EQU 




01H 


CHECKSUM FLAG IN WRITE STATUS 


O002 


174 


SYNFLG 


EQU 




02H 


SYNC FLAG IN WRITE STATUS 


0004 


175 


WRDFLG 


EQU 




04H 


WRITE DONE FLAG IN WRITE STATUS 


0020 


176 


EOTFLG 


EQU 




20H 


EOT FLAG 


0040 


177 


BOTFLG 


EQU 




40H 


BOT FLAG 


0080 


17B 


WRFLG 


EQU 




BOH 


READ/WRITE FLAG IN WRITE STATUS 


OOOB 


179 


WRCNT 


EQU 




08H 


WRITE BIT CONSTANT 


FFFC 


180 


WRT1M 


EQU 




-4H 


WRITE TIMER CONSTANT 




181 














182 


, PDRT EQUATES 










183 












0001 


184 


REWIND 


EQU 




01H 


DIRECTION MASKS 


OOFt 


185 


FORWD 


EQU 




OFEH 




0002 


186 


STP 


EQU 




02H 


START/STOP MASKS 


OOFD 


1B7 


SRT 


EQU 




OFDH 




0004 


188 


SLOW 


EQU 




04H 


SPEED MASKS 


OOFB 


189 


FAST 


EQU 




OFBH 




OOOB 


190 


WR 


EQU* 




08H 


WRITE/READ MASKS 


OOF7 


191 


RD 


EQU 




0F7H 




OO01 


192 


DOHI 


EQU 




01H 


DATA OUTPUT TO DRIVE MASKS 


OOFE 


193 


DOLOW 


EQU 




OFEH 




0002 


194 


DAOFF 


EQU 




02H 


DRIVE ACTIVE LED MASKS 


OOFD 


195 


DAON 


EQU 




OFDH 






196 














197 


, READ SYSTEM 


EQUATES: 






198 












0001 


199 


RDYFLG 


EQU 




01H 


DATA READY FLAG IN READ STATUS 


0002 


200 


SNBFLG 


EQU 




02H 


SYNC NEXT BYTE FLAG IN READ STATUS 


0004 


201 


STRFLG 


EQU 




04H 


START INC READY POINTER FLAG IN READ STATUS 


OOOB 


202 


I RGFLG 


EQU 




08H 


IRG FOUND FLAG IN READ STATUS 


OOOB 


203 


RDCNT 


EQU 




OBH 


READ TIMER CONSTANT 


FFFA 


204 


RDTIM 


EQU 




-6H i READ BIT CONSTANT 




205 














206 


; STS REGISTER 


EQUATES: 






207 












0O8O 


208 


BUSY 


EQU 




80H 


BUSY BIT 


00 1 


209 


DRACT 


EQU 




10H 


DRIVE ACTIVE BIT 


OO40 


210 


TAP IN 


EQU 




40H 


TAPE IN DRIVE BIT 


OO20 


21 1 


F I LPRT 


EQU 




20H j FILE PROTECT BIT 




212 


*EJECT 












213 


; GENERAL RESULT 


CODES 






214 












0O01 


215 


ABTCMP 


EQU 




01H 


ABORT COMPLETE CODE 


oooo 


216 


GOOD 


EQU 




OOH 


GOOD RESULT CODE 


0002 


217 


CMDERR 


EQU 




02H 


COMMAND ERROR CODE 


0003 


218 


NTAPE 


EQU 




03H 


NO TAPE ERROR CODE 


0004 


219 


NWR 


EQU 




04H 


FILE PROTECT ERROR CODE 




220 














221 


i WRITE 


RESULT 


CODES 






222 












0061 


223 


UNDERW 


EQU 




81H 


UNDERRUN ERROR CODE 


0082 


224 


WCMDER 


EQU 




82H 


COMMAND /DAT A ERROR CODE 


0083 


225 


EOTERR 


EQU 




83H 


EOT ERROR CODE 




226 














227 


i READ RESULT 


CODES 






228 












041 


229 


OVER UN 


EQU 




41H 


UNDERRUN CODE FOR BUFFER 


J042 


230 


SYNC1 


EQU 




42H 


BAD SYNC1 ERROR CODE 


0043 


231 


SYNC2 


EQU 




43H 


BAD SYNC2 ERROR CODE 


0044 


232 


BADCHS 


EQU 




44H 


BAD CHECKSUM ERROR CODE 


0045 


233 


RCMDER 


EQU 




45H 


COMMAND /DAT A ERROR CODE 


0046 


234 


REOTER 


EQU 




46H 


EOT AT READ ERROR CODE 


0047 


235 


SKPEOT 


EQU 




47H i EOT AT SKIP ERROR CODE 


0048 


236 
237 


SKPBOT 


EQU 




48H 


BOT AT RSKIP ERROR CODE 




238 


;MISC EQUATES 










239 












OOAA 


240 


SYNC 


EQU 




OA AH 


SYNC BYTE 


0033 


241 


SLWIRG 


EQU 




51D 


SLOW IRG COUNT CONSTANT - NO TRANSITION IN 2 BI 


0020 


242 


FAS I RG 


EQU 




32D 


FAST IRG COUNT CONSTANT 


0020 


243 


RWDIRG 


EQU 




32D 


REWIND IRG COUNT FOR SKIP 




244 














245 


, COMMANDS 










246 












0005 


247 


ABORT 


EQU 




05H 


ABORT COMMAND 


0001 


248 


RDCMD 


EQU 




01H 


READ FROM TAPE COMMAND 


0002 


249 


WRCMD 


EQU 




02H 


WRITE TO TAPE COMMAND 


O004 


250 


RWCMD 


EQU 




04H 


REWIND COMMAND 


0003 


251 


SKCMD 


EQU 




03H 


SKIP BLOCK COMMAND 


0000 


252 


RESCMD 


EQU 




OOH . RESET COMMAND 




253 














254 


*EJECT 
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LOC 


OBJ 


LINE 


50URCE 


STATEMENT 










255 














256 














257 .START OF PROGRAM - JUMPS FOR 


COLD START (RESET) AND TIMER INTERRUPTS 






258 














239 














260 










0000 


0409 


261 RESET: JMP 


BEGIN 




1 JUMP OVER TIMER VECTOR LOCATION 






262 










0007 




263 


ORG 


7H 




; TIMER INTERRUPT VECTOR LOCATION 






264 










0OO7 


6400 


265 TIMINT. JMP 


INT 




; JUMP TO TIMER INTERRUPT SERVICE ROUTINE 






266 














267 


»»***#********#»»#*»****«*»»***»»****»«#»**#»*#*•###-»**#****«**#**###*« 






268 














269 


PROGRAM START - INITIALIZE STATUS REGISTERS, DRIVE OUTPUTS, AND 






270 ; WA I T FOR A COMMAND 










271 














272 


««**»•***«#*****«•«**«******* 




**»»*«**»#»*#**#**»*#***«####*#*«*»**»»*» 






273 










0009 


27 


274 BEGIN CLR 


A 




. INITIALIZE THINGS 


OOOA 


85 


275 


CLR 


FO 






OOOB 


C5 


276 


SEL 


RBO 






OOOC 


AF 


277 


MOV 


STAT. A 




; CLEAR STS IMAGE 


OOOD 


90 


278 


MOV 


STS, A 




, CLEAR STS 


OOOE 


D5 


279 


SEL 


RBI 






OOOF 


AB 


280 


MOV 


WSTAT, A 




, CLEAR STATUS 


00 1 


8906 


281 


□RL 


PI , #STP OR SLOW 


, STOP DRIVE AND SELECT SLOW FOR STARTERS 


00 1 2 


99F6 


282 


ANL 


PI, #FORWD AND 


RD, SELECT FORWARD AND READ 


0014 


8A02 


2B3 


ORL 


P2. (tDAOFF 




; TURN OFF DRIVE ACTIVE LED 


0016 


F5 


284 


EN 


FLAGS 




i ENABLE FLAG INTERRUPT OUTPUT 5 






285 














286 


COMMAND RECOGNIZER MAIN LOOP 










287 










OOl 7 


C5 


288 Bl: SEL 


RBO 




, COMMAND PROCESSING IN RBO 


0018 


D61 F 


289 


JNIBF 


B2 




; TEST IF IBF INPUT 


OOl A 


7623 


290 


JF1 


CMDIN 




, YES THERE IS AN INPUT. SO TEST IF ITS A COMMAND 


001 C 


22 


291 


IN 


A. DBB 




;NOPE. ITS DATA SO IGNORE IT 


001 D 


041 7 


292 


JMP 


Bl 




: JUST GO BACK TO TEST IBF 


00 IF 


1 4AD 


293 B2: CALL 


STSUP 




;N0 INPUT, UPDATE STS WITH DRIVE STATUS 


0021 


0417 


294 


JMP 


Bl 




; GO BACK TO TEST IBF 






295 














296 








297 














298 


COMMAND PROCESSOR - TESTS VALIDITY OF INPUT AND BRANCHES TO THE APPROPRIATE 






299 


ROUTINE ILLEGAL COMMANDS ARE 


FLAGGED AS COMMAND ERRORS 






300 














301 










302 










0023 


FF 


303 CMDIN MOV 


A. STAT 




; GET STS IMAGE 


0024 


4380 


304 


ORL 


A, HBUSY 




.SET BUSY FOR ALL COMMAND INPUTS 


0026 


AF 


305 


MOV 


STAT. A 




; RESTORE IMAGE 


0027 


90 


306 


MOV 


STS, A 




: UPDATE STS 


0026 


22 


307 


IN 


A, DBB 




1 READ COMMAND FROM DBB IN 


0029 


AA 


308 


MOV 


CMDSAV, A 




i SAVE IT IN CMDSAV 


002A 


BC06 


309 


MOV 


TEMPI, #6H 




, INITIALIZE ILLEGAL COMMAND COUNTER 


002C 


FA 


310 CMDIN1 MOV 


A, CMDSAV 




i GET COMMAND FROM CMDSAV 


002D 


17 


31 1 


INC 


A 






002E 


DC 


312 


XRL 


A, TEMPI 




; TEST IF VALID 


002F 


C63A 


313 


JZ 


CMDIN2 




; YES, INDIRECT JUMP TO IT 


0031 


EC2C 


314 


DJNZ 


TEMPI, CMDIN1 




i NO MATCH YET, TRY AGAIN 






315 








i NO MATCH, COMMAND ERROR 


0O33 


54C4 


317 CMDIN3. CALL 


NDR ACT 




.RESET DR AC T AND BUSY (DRACT WAS NEVER SET ) 


0035 


2302 


318 


MOV 


A, #CMDERR 




/ COMMAND ERROR CODE 


0037 


02 


319 


OUT 


DBB, A 




, OUTPUT ERROR CODE 


0038 


0417 


320 


JMP 


Bl 




; GO BACK TO TEST FOR IBF 






321 










003A 


FA 


322 CMDIN2 MOV 


A, CMDSAV 




.IT'S A GOOD COMMAND. GET IT FROM CMDSAV 


003B 


033E 


323 


ADD 


A. #<LOW CMDJMP) 


, ADD OFFSET 


0O3D 


B3 


324 


JMPP 


@A 




, INDIRECT JUMP TO THE COMMAND ROUTINE THRU TABLE 






325 


COMMAND JUMP 


TABLE 










326 










00 3E 


44 


327 CMDJMP DB 


(LOW RES JMP) 






003F 


46 


328 


DB 


(LOW RED JMP) 






0040 


48 


329 


DB 


(LOW WRTJMP) 






0O41 


4A 


330 


DB 


(LOW SKPJMP) 






0042 


4C 


331 


DB 


(LOW REWJMP) 






0043 


44 


332 


DB 


(LOW AR T JMP ) 










333 














334 ART JMP: 








0044 


044E 


335 RES JMP . JMP 


RESCOM 






O046 


2400 


336 RED JMP. JMP 


READ 






0048 


0455 


337 WRTJMP JMP 


WRITE 






004A 


4414 


338 SKPJMP: JMP 


SKIP 






004C 


4494 


339 REWJMP: JMP 


REWND 










340 ; 












341 


IT'S A ABORT 


COMMAND WHILE IN 


COMMAND RECOGNIZER LOOP 






342 










004E 


54C4 


343 RESCOM CALL 


NDR ACT 




• RESET BUSY AND DRACT (DRACT NEVER WAS SET ) 


0050 


2301 


344 


MOV 


A. »ABTCMP 




- GET ABORT COMPLETE CODE 


0052 


02 


345 


OUT 


DBB. A 




.OUTPUT IT 


0053 


0400 


346 


JMP 


RESET 




, GO START OVER 






347 














34B *EJECT 
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LOC 


OBJ 


LINE 




SOURCE STATEMENT 








349 


; ***** 


********* 


»*»**»»«*»*«**»«»****«.«*.....,..„,,„„„„„„,,.„.».»,.,♦..«. 






350 














351 


. WR ITE 


TO TAPE 


ROUTINE 








352 














353 


, ***** 


. t i.ti«i...«««.....m.. ) <..i.„„„„„„,„ t „„„„,„„„„« 






354 


* 








0055 


C5 


355 


WRITE: 


SEL 


RBO 




0056 


85 


356 




CLR 


FO 


CLEAR INT COUNT FLAG 


0057 


65 


357 




STOP 


TCNT 


BE SURE THAT THE TIMER IS STOPPED 


0058 


35 


358 




DIS 


TCNTI 


DISABLE TIMER INTS 


0059 


1659 


359 


CLRTF 


JTF 


CLRTF 


BE SURE THAT THE TIMER FLAG IS CLEARED 


005B 


D65B 


360 


WR 1 


JNIBF 


WR1 


WAIT FOR BYTE COUNT LSB 


005D 


22 


361 




IN 


A, DBB 


READ COUNT LSB FROM DBB I N 


005E 


7633 


362 




JF1 


CMDIN3 


TEST IF COMMAND - ERROR 


0060 


AB 


363 




MOV 


CNTLSB, A 


IT'S DATA SO STORE IT AWAY 


0061 


D661 


364 


WR2 


JNIBF 


WR2 


WAIT FOR BYTE COUNT MSB 


0063 


22 


365 




IN 


A, DBB 


READ COUNT MSB FROM DBB IN 


0064 


7633 


366 




JF1 


CMDIN3 


TEST IF COMMAND - ERROR 


0066 


A9 


367 




MOV 


CNTMSB, A 


IT'S DATA SO STORE IT AWAY 


0067 


FB 


368 




MOV 


A. CNTLSB 


GET COUNT LSB 


0068 


17 


369 




INC 


A 


INC IT TO ACCOUNT FOR SYNC 


0069 


AB 


370 




MOV 


CNTLSB, A 


SAVE IT 


0O6A 


966D 


371 




JN2 


NINMSB 


NO OVERFLOW, DON'T INC COUNT MSB 


006C 


19 


372 




INC 


CNTMSB 


OVERFLOW, SO INC COUNT MSB 


006D 


09 


373 


NINMSB 


IN 


A, PI 


GET DRIVE STATUS 


0O6E 


D2C5 


374 




JB6 


DRIVER 


TEST IF NO TAPE 


0070 


B2C5 


375 
376 




JB5 


DRIVER 


TEST IF FILE PROTECTED 
EXIT WITH ERROR IF EITHER 


0072 


BBOO 


377 




MOV 


CHKSUM. #0OH 


CLEAR CHECKSUM REGISTER 


0074 


D5 


378 




SEL 


RBI 




007S 


BC08 


379 




MOV 


BITCNT, #WRCNT 


INITIALIZE WRITE BIT COUNTER 


0077 


BDAA 


380 




MOV 


SERIAL, #SYNC 


LOAD SYNC INTO SERIAL FOR 1ST BYTE 


0079 


23FC 


381 




MOV 


A, #WRTIM 


GET WRITE TIMER CONSTANT (1/2 CELL TIME) 


007B 


62 


382 




MOV 


T. A 


LOAD TIMER BUT DON'T START IT YET 


007C 


FB 


383 




MOV 


A, WSTAT 


GET WRITE STATUS 


007D 


B2A9 


384 




JB5 


WEOTER 


IF EOTFLG SET, STILL AT END OF TAPE - ERROR 


007F 


C5 


385 




SEL 


RBO 




0080 


54BC 


386 




CALL 


DRACTS 


NOT AT EOT SO SET DRIVE ACTIVE AND CONTINUE 


0082 


D5 


387 




SEL 


RBI 




00B3 


B90E 


388 




ORL 


P1.»WR OR SLOW OR STP ; SETUP PORT FOR SLOW WRITE 


00B5 


99FC 


389 




ANL 


P1,#SRT AND FORWD ; START DRIVE IN FORWARD 


0087 


FB 


390 




MOV 


A, WSTAT 


GET WRITE STATUS AGAIN 


0088 


37 


391 




CPL 


A 


COMP FOR TEST 


0089 


D28D 


392 




JB6 


WR3 


TEST BOTFLG - WRITE OVER HOLE IF SET 


008B 


54DC 


393 




CALL 


PASHOL 


GET OFF CLEAR LEADER AND PAST HOLE IN TAPE 


008D 


BBBO 


394 


WR 3 : 


MOV 


WSTAT, #80H 


SETUP WRITE STATUS WITH WRFLG SET 


OOSF 


C5 


395 




SEL 


RBO 




0090 


14C1 


396 




CALL 


DEL 1 50 


WAIT 450 MS IRG BEFORE WRITING DATA 


0092 


14C1 


397 




CALL 


DEL 1 50 




0094 


14C1 


398 




CALL 


DELI 50 




0096 


55 


399 




STRT 


T 


START TIMER 


0097 


25 


400 
401 




EN 


TCNTI 


ENABLE TIMER INTERRUPTS 






402 
403 
404 


i TIMER 


INTERRUPT ROUTINE DOES ALL THE WORK SO WAIT UNTIL IT RESETS WRFLG 


0098 


C5 


WR4 


SEL 


RBO 




0099 


1 4 AD 


405 




CALL 


STSUP 


UPDATE STS WHILE WAITING 


009B 


D5 


406 




SEL 


RBI 




0O9C 


FB 


407 




MOV 


A, WSTAT 


GET WRITE STATUS 


009D 


F298 


408 
409 




JB7 


WR4 


TEST IF WRITE DONE < WRFLG RESET) 






410 
41 1 
412 


i WRFLG 


IS RESET 


SO WRITE OPERATION MUST BE COMPLETE - OUTPUT RESULT 


009F 


C5 


WR 5 : 


SEL 


RBO 




OOAO 


54C4 


413 




CALL 


NDRACT 


RESET DR ACT AND BUSY 


OOA2 


D5 


414 




SEL 


RBI 




00A3 


FA 


415 




MOV 


A, RESULT 


GET RESULT CODE 


00A4 


02 


416 




OUT 


DBB, A 


OUTPUT IT 


00A5 


14C1 


417 
418 




CALL 


DEL 1 50 


WAIT FOR DRIVE TO STOP 

FULLY BEFORE ACCEPTING NEW COMMAND 


00A7 


0417 


419 
420 




JMP 


Bl 


DONE, RETURN TO COMMAND RECOGNIZER LOOP 






421 


i TAPE 


IS AT EOT 


WHEN WRITE COMMAND ISSUED - EXIT WITH ERROR 






422 










00A9 


BA83 


423 


WEDTER 


MOV 


RESULT, ttEOTERR 


EOT ERROR RESULT CODE 


OOAB 


049F 


424 
425 
426 


i 

♦EJECT 


JMP 


WR5 


GO RESET BUSY AND OUTPUT RESULT 
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OOAD FF 
OOAE 4360 
OOBO AF 
0OB1 09 
00B2 439F 
00B4 5F 
00B5 AF 
00B6 90 
00B7 83 



00B8 BD24 
OOBA BEFF 
OOBC EEBC 
OOBE EDBA 
OOCO 83 

OOC 1 BD6C 
00C3 04BA 



SOURCE STATEMENT 



427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 



STS UPDATE SUBROUTINE - UPDATES THE CASSETTE PRESENCE AND FILE PROTECT 
BIT IN STS (ENTER AND EXIT IN RBO) 



MOV A. STAT i GET STS IMAGE 

ORL A,#TAPIN OR FILPRT .SET BOTH PRESENCE AND FILE PROTECT 

MOV STAT. A . RESTORE IMAGE 

IN A. PI i READ INPUT 

ORL A, #NOT ( TAP I N OR FILPRT > .SET BITS TO CORRECT STATE 

ANL A, STAT 

MOV STAT. A , RESTORE IMAGE 

MOV STS. A ; UPDATE STS 
RET 



445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 



. DELAY ROUTINES- ENTER /EXIT IN RBO 

. 50MS DELAY ROUTINE 



DEL50 MOV 
DELI: MOV 
DEL2. DJNZ 
DJNZ 
RET 

DEL 150: MOV 
JMP 



R5. #36D 
R6. ttOFFH 
R6, DEL2 
R5. DEL 1 



R5. #108D 
DELI 



150MS DELAY ROUTINE 



.DRIVE ERROR EXIT - NO TAPE OR FILE IS PROTECTED FOR WRITE 



OOC 5 


C5 


465 


DRIVER 


SEL 


RBO 




00C6 


54C4 


466 




CALL 


NDRACT 


RESET DRACT AND BUSY 


OOC 8 


09 


467 




IN 


A. PI 


READ DRIVE STATUS 


OOC 9 


D2D0 


468 




JB6 


NT 


TEST IF TAPE IS THERE 


OOCB 


2304 


469 




MOV 


A. #NWR 


TAPE IS THERE SO ERROR 


OOCD 


02 


470 


DR1 : 


OUT 


DBB, A 


OUTPUT ERROR CODE 


OOCE 


0417 


471 




JMP 


Bl . RETURN TO COMMAND LOOP 


OODO 


2303 


472 


NT 


MOV 


A. #NTAPE 


NO TAPE ERROR 


00D2 


04CD 


473 




JMP 


DR1 





474 
475 
476 
477 
478 
479 
480 
481 



. READ ERROR WITH ADVANCE TO IRG BEFORE STOPPING DRIVE 

, WAIT FOR OBF TO BE FREE BEFORE RESETTING BUSY THEN OUTPUT RESULT 

. R DERR3 LABEL IS EXIT POINT FOR OTHER ROUTINES NEEDING TO WAIT FOR 

, OBF TO BE FREE BEFORE OUTPUTTING RESULT. 

i ROUTINE EXITS IN RBO 



00D4 
00D5 
00D7 
0OD9 
OODB 
OODD 
OODF 
OOE1 
00E3 
OOES 
00E7 
00E9 
OOEA 
OOEC 
OOED 
OOEE 
OOEF 



C5 

BC01 

BD33 

BE33 

5400 

F6F1 

8902 

8A02 

D6E7 

04FB 

86E3 

C5 

54C4 

D5 

FA 

02 

0417 



00F1 D5 

00F2 BA46 

00F4 BB20 

00F6 04DF 

OOFB 22 
00F9 D305 
OOFB 96E7 
OOFD 044E 



483 
4B4 
4B5 
486 
4B7 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 



*«**«***«**«««*»«««*«*«« 



RDERR3 
RDERR4 
RDERR5 



SEL 

MOV 

MOV 

MOV 

CALL 

JC 

ORL 

ORL 

JN1BF 

JMP 

JOBF 

SEL 

CALL 

SEL 

MOV 

OUT 



MOV 
MOV 
JMP 



IN 

XRL 

JNZ 



RBO 

BLKCNT. #1H 

BLKTIM, #SLWIRG 

BLKSAV, #SLWIRG 

SKIPER 

RDERR2 

PI. «STP 

P2, (tDAOFF 

RDERR5 

RDERR6 

RDERR4 

RBO 

NDRACT 
RBI 

A, RESULT 
DBB. A 
Bl 

RBI 

RESULT, #REOTER 
RSTAT, #EOTFLG 
RDERR3 

A. DBB 

A, #ABORT 

RDERR5 

RESCOM 



.SET SKIP COUNTER TO ADVANCE TO NEXT IRG 
; SETUP IRG COUNTER 

, DO SKIP TO NEXT IRG 

; TEST IF EOT FOUND 

; STOP DRIVE WHEN DONE 

.TURN OFF DRIVE ACTIVE LED 

; TEST IBF WHILE WAITING FOR OHF 

; IBF SET - GO TEST INPUT 

, TE5T OBF, LOOP IF 1, CONTINUE IF O 

; RESET DRACT AND BUSY 

GET RESULT 

OUTPUT RESULT 

GO BACK TO COMMAND LOOP 

EOT FOUND WHILE SKIPPING 
RESET RESULT VALUE TO EOT ERROR 
SET EOTFLG IN RSTAT 
GO OUTPUT NEW RESULT 

READ INPUT 

TEST IF ABORT 

IGNORE IT IF NOT 

IT'S AN ABORT, GO RESET 
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LOC OBJ LINE SOURCE STATEMENT 



01 00 




514 
515 
516 




ORG 


lOOH 












517 


















518 


. READ 


FROM TAPE ROUTINE 












519 
520 


















521 














0100 


C5 


522 


READ 


SEL 


RBO 








OlOl 


65 


523 




STOP 


TCNT 






BE SURE THE TIMER IS STOPPED 


0102 


35 


524 




DIS 


TCNTI 






D15ABLE TIMER INTS 


0103 


1 603 


525 


RCLRTF 


: JTF 


RCLRTF 






BE SURE THE TIMER FLAG IS CLEARED 


0105 


85 


526 




CLR 


FO 






CLEAR LAST DATA FLAG 


1 06 


2320 


527 




MOV 


A, tt20H 






otl rulNItH blAKI LULAIIUN 


0108 


A8 


528 




MOV 


LBOUT, A 






INI 1 J ALJ Zt LfctUUl 


1 09 


A9 


529 




MOV 


LBRDY, A 






INITIALIZE LBRDY 


01 OA 


BBOO 


530 




MOV 


CHKSUM. #OOH 






CLEAR CHECKSUM LOCATION 


010C 


D5 


53 1 




SEL 


RBI 








1 OD 


A8 






MOV 


LBIN, A 






INITIALIZE LBIN 


1 OE 


BC08 


533 




MOV 


BITCNT. #RDCNT 




INITIALIZE READ BIT COUNTER 


0110 


09 


534 




IN 


A. PI 






READ DRIVE STATUS 


0111 


D24F 


535 




J86 


DRIVJ 






TEST IF TAPE IS THERE TO READ 


0113 


C 5 


536 




SEL 


RBO 








0114 


54BC 






CALL 


DRACTS 






SET DRIVE ACTIVE 


0116 


23FA 


538 




MOV 


A, #RDTIM. 






GET READ TIMER CONSTANT (3/4 CELL TIME) 


0118 


62 


539 




MOV 


T. A 






LOAD TIMER BUT DON'T START IT YET 


0119 


25 


540 




EN 


TCNTI 




, ENABLE TIMER INTERRUPTS 


01 1 A 


D5 


54 1 




SEL 


RBI 








01 1 B 


FB 


542 




MOV 


A. RSTAT 






GET READ STATUS 


01 1C 


B24B 


543 




JB5 


REOT 






TEST IF AT EOT - ERROR IF SO 


1 1 E 


8904 


544 




ORL 


PI, «SLOW 






SELECT SLOW 


120 


99F4 


54 5 




ANL 


PI, ftRD AND FOR WD 


AND SRT i START DRIVE. FORWARD AND READ 


1 22 


37 


546 




CPL 


A 






COMP A FOR TEST (STILL HAVE RSTAT) 


0123 


D227 


547 




JB6 


RD1 






TEST FOR AT BOT, IF NOT JUST LOOK FOR MARK 


0125 


54 DC 


548 




CALL 


PASHOL 






IF BOT, WAIT UNITL PAST CLEAR LEADER AND HOLE 


0127 


BB06 


549 


RD1 


MOV 


RSTAT, *06H 






SETUP READ STATUS - SNBFLG AND STRFLG SET 


0129 


1 4C 1 


550 




CALL 


DEL 1 50 






LET DRIVE START UP 






551 












AND WAIT OVER WRITE STOP LOCATION 


01 2B 


462B 


552 


RD 1 A 


JNT1 


RD 1 A 






WAIT FOR MARK 


1 2D 


562D 


553 


RD2 


JT1 


RD2 






WAIT FOR TRANSITION TO SPACE 


1 2F 


55 






STRT 


T 






START TIMER 






555 


















556 


, LOOP 


START - 


LOOK FDR READ 


STATUS FLAGS BEING SET BY TIMER INTERRUPT ROUTINE 




















1 30 


D5 


558 


RD3 


SEL 


RBI 








0131 


D635 


559 




JNIBF 


RD4 






TEST FOR IBF EVEN WHEN READING 


0133 


24D5 


560 






RD I BF 






INPUT DURING READ - GO TEST IT 


0135 


FB 


56 1 


RD4 


MOV 


A, RSTAT 






GET READ STATUS 


01 36 


1 251 


562 




JBO 


GETDAT 






TEST DATA READY FLAG (RDYFLG) 


138 


729 1 


563 




JB3 


IRGFND 






TEST IRG FLAG ( I RGFLG ) 


01 3A 


B24B 


564 




JB5 


REOT 






EOT FOUND DURING READ ( EOTFLG SET) - ERROR 






565 


















566 


1 NOTHING FROM 


TIMER INTERRUPT ROUTINE SO GO HANDLE CIRCULAR BUFFER- 






567 














013C 


C5 


568 




SEL 


RBO 












569 




MOV 


A, LBRDY 






GET READY POINTER 


1 3E 


D8 


570 




XRL 


A, LBOUT 






COMPARE TO OUT POINTER 


1 3F 


C630 


57 1 




JZ 


RD3 






EMPTY IF THE SAME SO JUST LOOP 






572 












NOT EMPTY SO SEE IF NEXT BYTE CAN BE OUTPUT 


0141 




573 




JOBF 


RD3 






TEST DBBOUT - FULL, LOOP 




FO 






MOV 


A, ©LBOUT 






DBBOUT FREE - GET DATA 


0144 


02 


575 




OUT 


DBB, A 






OUTPUT IT 


014 5 








MOV 


A, LBOUT 






GET OUT POINTER 


7146 


54CC 


577 




CALL 


BUMP IT 






BUMP POINTER 


1 48 


A8 


578 




MOV 


LBOUT, A 






RETURN IT 


0149 


2430 


579 




JMP 


RD3 






LOOP 






580 


















58 1 


. TAPE 


AT EOT WHEN READ COMMAND 


ISSUED - ERROR 






582 














1 4B 


BA46 


583 


REOT . 


MOV 


RESULT, #REOTER 


s EOT AT READ ERROR CODE 


1 4D 


04DF 


584 




JMP 


RDERR3 




; EXIT 






585 


















586 


. OUT OF PAGE „ 


UMP FOR DRIVE 


ERROR 






587 














1 4F 


04C 5 


588 


DRI VJ, 


JMP 


DR I VER 






























S9n 


i TIMER 


ROUTINE 


FLAGGED DATA 


IS 


READY 






591 
59c 


GETDAT 


ANL 


A, *NOT RDYFLG 




RESET DATA READY FLAG (RDYFLG) 






593 




MOV 


RSTAT, A 






RESTORE READ STATUS 










JB1 


SNBTST 






TEST IF DATA SHOULD BE SYNC (SNBFLG SET) 


01 56 


C5 


595 




SEL 


RBO 






NO, TRY TO PUT IN BUFFER 


1 57 




596 




MOV 


A. LBOUT 






GET OUT POINTER 


01 58 


D5 


597 




SEL 


RBI 








0159 


54D3 


598 




CALL 


DUMP I T 






DUMP IT FDR FULL TEST 


015B 


D8 


599 




XRL 


A, LBIN 






COMPARE IT TO IN POINTER 


01 5C 


9662 


600 




JNZ 


NOFULL 






IF NOT SAME. THEN BUFFER ISN'T FULL 


Ol 5E 


BA41 


601 




MOV 


RESULT, #OVERUN 




BUFFER IS FULL SO OVERRUN ERROR CODE 


0160 


04D4 


602 




JMP 


RDERR 






GO EXIT FROM ERROR , SKIP TO NEXT IRG 


0162 


FE 


603 


NOFULL 


: MOV 


A, RDATA 






BUFFER ISN'T FULL SO GET DATA FROM HOLDING 


0163 


C5 


604 




SEL 


RBO 








0164 


6B 


605 




ADD 


A, CHKSUM 






ADD IT TO CHECKSUM 


0165 


AB 


606 




MOV 


CHKSUM. A 




i RESTORE CHECKSUM 


0166 


D5 


607 




SEL 


RBI 
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LOC 


OBJ 


LINE 




SOURCE 


STATEMENT 




0167 


FE 


608 




MOV 


A. RDATA 1 


GET DATA AGAIN 


01 68 


AO 


609 




MOV 


SuB I N. A i 


PUT IT IN BUFFER 


0169 


FB 


610 




MOV 


A.LBIN I 


GET IN POINTER 












BUMP IT ; 


BUMP IT 


016C 


A8 


612 




MOV 


LBIN.A : 


RETURN IT 


016D 


FB 


613 




MOV 


A. RSTAT . GET READ STATUS 


016E 


5277 


614 




J82 


LBTST , TEST IF LBRDY SHOULD BE 






615 






.BUMPED TOO (SRTFLG RESET) 


0170 


C5 


616 




SEL 


RBO 




0171 


F9 


617 




MOV 


A, LBRDY ; SRTFLG IS RESET SO GET LBRDY 


0172 


54CC 


618 




CALL 


BUMP IT .BUMP IT 


0174 


A9 


619 




MOV 


LBRDY . A ; RETURN IT 


0175 


2430 


620 




JMP 


RD3 i 


GO BACK TO LOOK FOR DATA 






622 


, START FLAG IS 


SET - SEE IF LBIN 


HAS ADVANCED FAR ENOUGH TO START INC LBRDY 






623 










0177 


FB 


624 


LBTST: 


MOV 


A.LBIN 


GET IN POINTER 


0178 


D322 


625 




XRL 


A. H22H 


TEST IF READY POINTER SHOULD BE BUMPED 


017A 


9630 


626 




JNZ 


RD3 


NO, GO BACK FOR DATA 


017C 


FB 


627 




MOV 


A. RSTAT 


YES, GET READ STATUS 


017D 


53FB 


628 




ANL 


A, *NOT 5TRFLG 


RE5ET START FLAG 


017F 


AB 


629 




MOV 


RSTAT, A 


RESTORE STATUS 


0180 


2430 


630 




JMP 


RD3 . GO BACK TO LOOK FOR DATA 






631 
632 


. DATA 


SHOULD BE SYNC - TEST IT 








633 










0182 


FE 


634 


SNBTST 


MOV 


A. RDATA 


GET DATA 


0183 


D3AA 


635 




XRL 


A, ttSYNC 


COMPARE TO SYNC 


0185 


C6BB 


636 




JZ 


RSNB 


IT'S A SYNC. RESET SNBFLG 


0187 


BA42 


637 




MOV 


RESULT, «SYNC 1 


IT'S NOT A SYNC. BAD FIRST SYNC ERROR CODE 


0189 


04D4 


638 




JMP 


RDERR 


EXIT READ ERROR. ADVANCE TO NEXT IRG 


018B 


FB 


639 


RSNB 


MOV 


A. RSTAT 


SYNC TEST IS OK, GET READ STATUS 


01 8C 


53FD 


640 




ANL 


A, #NOT SNBFLG 


RESET SNB FLAG 


018E 


AB 


641 




MOV 


RSTAT. A 


RESTORE STATUS 


018F 


2430 


642 




JMP 


RD3 


GO BACK TO LOOK FOR DATA 






643 














644 


, 1 RG FOUND - TEST FOR SYNC. CORRECT AND TEST CHECKSUM 






645 










0191 


C5 


646 


IRGFND 


: SEL 


RBO 




0192 


FF 


647 




MOV 


A. STAT 


GET STS IMAGE 


0193 


53EF 


648 




ANL 


A. »NOT DRACT 


RESET DRIVE ACTIVE 


0195 


AF 


649 




MOV 


STAT. A 


RESTORE IMAGE 


0196 


90 


650 




MOV 


STS. A 


UPDATE STS 


0197 


BA02 


651 




ORL 


P2. ttDAQFF 


TURN OFF DRIVE ACTIVE LED 


0199 


D5 


652 




SEL 


RBI 




019A 


F8 


653 




MOV 


A. LBIN 


GET IN POINTER 


019B 


54D3 


654 




CALL 


DUMP I T 


DEC IT TO POINT AT LAST DATA, ALIAS SYNC 


019D 


A8 


655 




MOV 


LBIN, A 


RETURN IT 


01 9E 


FO 


656 




MOV 


A, ©LB IN 


GET LAST DATA 


01 9F 


D3AA 


657 




XRL 


A, *SYNC 


COMPARE TO SYNC 


01 Al 


96BA 


658 




JNZ 


IRGF1 


NOT EQUAL - ERROR 


01A3 


F8 


659 




MOV 


A, LBIN 


GET POINTER AGAIN 


01A4 


54D3 


660 




CALL 


DUMP I T 


DEC IT TO POINT AT 2ND 






661 








TO LAST DATA, ALIAS CHECKSUM 


01A6 


A8 


662 




MOV 


LBIN, A 


RETURN IT 


01 A7 


C5 


663 




SEL 


RBO 




01A8 


FB 


664 




MOV 


A, CHKSUM 


GET ACCUMULATED CHECKSUM 


01 A9 


0356 


665 




ADD 


A, #56H 


SUBTRACT OUT SYNC 


01 AB 


AB 


666 




MOV 


CHKSUM, A 


RESTORE CHECKSUM 


01 AC 


D5 


667 




SEL 


RBI 




01 AD 


FO 


668 




MOV 


A, SLBIN 


GET RECEIVED CHECKSUM 


01AE 


C5 


669 




SEL 


RBO 




Ol AF 


37 


670 




CPL 


A 


SUBTRACT IT OUT - MAKE IT MINUS 


01 BO 


17 


671 




INC 


A 




01B1 


6B 


672 




ADD 


A, CHKSUM 


SUBTRACT FROM ACC CHECKSUM 


01B2 


D5 


673 




SEL 


RBI 




01B3 


DO 


674 




XRL 


A, (»LBIN 


COMPARE RESULT TO RECEIVED 


01B4 


96BE 


675 




JNZ 


CKSER 


NOT EQUAL, THEN CHECKSUM ERROR 


01B6 


BAOO 


676 




MOV 


RESULT, #GOOD 


EQUAL, THEN GOOD RESULT 


01B8 


24C0 


677 




JMP 


BUFFER 


GO FINISH OFF BUFFER BEFORE OUTPUTTING RESULT 


01BA 


BA43 


678 


IRGF1 : 


MOV 


RESULT, #SYNC2 


2ND SYNC ERROR CODE 


01BC 


04DF 


679 




JMP 


RDERR3 


EXIT 


01BE 


BA44 


680 
681 


CKSER 


MOV 


RESULT, #B ADCHS 


BAD CHECKSUM ERROR CODE BUT STILL FINISH BUFFER 






682 


, DONE 


UITH READ - LET BUFFER EMPTY BEFORE OUTPUTTING RESULT 






683 










01C0 


C5 


684 


BUFFER 


: SEL 


RBO 




01C1 


F8 


685 




MOV 


A. LBOUT 


GET OUT POINTER 


01C2 


D9 


686 




XRL 


A, LBRDY 


COMPARE TO READY POINTER 


01C3 


96C7 


687 




JNZ 


BUF1 


NOT EMPTY YET SO GO TEST DBF 


01C5 


04DF 


688 




JMP 


RDERR3 


BUFFER IS EMPTY - GO OUTPUT RESULT 


01C7 


D6CB 


689 


BUF1 : 


JNIBF 


BUF2 


TEST FOR INPUT 


01C9 


24D5 


690 




JMP 


RDIBF 


IF INPUT. GO TEST IT 


01CB 


86C7 


691 


BUF2: 


JOBF 


BUF1 


TEST OBF 


01CD 


FO 


692 




MOV 


A, 9LB0UT 


OBF FREE. GET DATA FROM BUFFER 


01CE 


02 


693 




OUT 


DBB, A 


OUTPUT IT 


OICF 


F8 


694 




MOV 


A, LBOUT 


GET OUT POINTER 


OlDO 


54CC 


695 




CALL 


BUMP IT 


BUMP IT TO POINT AT NEXT DATA 


01D2 


A8 


696 




MOV 


LBOUT, A 


RETURN IT 


01D3 


24C0 


697 




JMP 


BUFFER 


GO TEST IT DONE 






698 


1 












699 


; I BF FOUND DURING READ OPERATION 


- TEST IF ABORT, IGNORE IF NOT 






700 


i 
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LOC OBJ 



SOURCE STATEMENT 



01D5 22 

01D6 76DA 

01DB 2430 

01 DA D305 

01DC 9630 

01DE BA01 

01E0 04D4 



701 RD1BF 

702 

703 

704 ABTST 
705 

706 ABTST1 

707 

70B 

709 *EJECT 



IN 

JF1 

JMP 

XRL 

JN2 

MOV 

JMP 



A. DBB 
ABTST 
RD3 

A, »ABORT 
RD3 

RESULT, #ABTCMP 
RDERR 



. RtAD DBB I N 

, TEST FOR COMMAND 

• MUST BE DATA, IGNORE IT 

, COMPARE TO ABORT COMMAND 

i NOT EQUAL. IGNORE IT 

. IT IS AN ABORT, ABORT COMPLETE RESULT CODE 
.EXIT LIKE IT WAS AN ERROR. ADVANCE TO IRG 



0200 



0214 
0216 
021B 
0219 
021B 
02 ID 
021E 
021F 



0221 

0222' 

0223 

0225 

0227 

0228 

0229 

022B 

022D 

022F 

0231 

0232 

0234 

0236 

0238 

023A 

023C 

023E 

0240 

0242 

0244 

0246 

0247 

0249 

024B 

024D 

024F 

0251 

0253 

0255 

0257 

025S 

025A 

025C 



D614 

7692 

85 

54BC 

8904 

22 

AC 

F262 



D5 
FB 

B27B 
99F4 
C5 
37 

D22D 
54DC 
14C1 
B644 
FC 

03FB 

F63E 

BD33 

BE33 

8904 

4444 

BD20 

BE20 

99FB 

464B 

09 

9278 

4444 

D64F 

4487 

5400 

F678 

EC2D 

B65E 

D5 

BAOO 
BBOO 
04DF 



710 
71 1 
712 
713 
714 
715 
716 
717 
71B 
719 
720 



*#*****###*»*******»«# 



SKIPER SUBROUTINE - ADVANCES TO NEXT IRG BASED ON DIRECTION AND 
SPEED PASSED IN BLKTIM 

CARRY=0. NO EOT ENCOUNTERED CARRY=1. EOT ENCOUNTERED 
ENTER AND EXIT IN RBO 



»****«« 



0200 


97 


721 


SK IPER : 


CLR 


C 


; CLEAR EOT INTERNAL FLAG 


0201 


09 


722 




IN 


A, PI 


, READ DRIVE STATUS 


0202 


9212 


723 




JB4 


SKIPR3 


i TEST FOR CLEAR LEADER 


0204 


4600 


724 




JNT1 


SKIPER 


i NO CLEAR LEADER. WAIT UNTIL INPUT IS HIGH 


0206 


560C 


725 


SK1PR1 : 


JT1 


SKIPR2 


i WHILE INPUT IS HIGH. DEC BLKTIM COUNTER 


020B 


FE 


726 




MOV 


A. BLKSAV 


; INPUT WENT LOW. RESET BLKTIM COUNTER 


0209 


AD 


727 




MOV 


BLKTIM, A 




020A 


4400 


72B 




JMP 


SKI PER 


i GO WAIT UNTIL INPUT IS HIGH AGAIN 


020C 


09 


729 


SKIPR2: 


IN 


A. PI 


. READ DRIVE STATUS 


020D 


9212 


730 




JB4 


SKI PR 3 


i TEST CLEAR LEADER - ERROR IF TRUE 


020F 


ED06 


731 




DJNZ 


BLKTIM. SKIPR1 


i INPUT STILL HIGH, DEC BLKTIM COUNTER 


021 1 


83 


732 




RET 




; RETURN WHEN AT IRG 


0212 


A7 


733 


SKIPR3 


CPL 


C 


i SET CARRY TO SHOW EOT 


0213 


83 


734 




RET 




. RETURN 



.SKIP COMMAND ROUTINE - NEXT DATA BYTE IS NUMBER OF IRG'5 TO SKIP 



JNIBF 

JF1 

CLR 

CALL 

ORL 

IN 

MOV 

JB7 



MOV 
JB5 
ANL 
SEL 
CPL 
JB6 
CALL 
CALL 
JFO 
MOV 
ADD 
JC 
MOV 
MOV 
ORL 
JMP 
MOV 
MOV 
ANL 
JNT1 
IN 
JB4 
JMP 
JNIBF 
JMP 

SK1P12: . CALL 
JC 

DJNZ 
JFO 

SKIP 14 SEL 
MOV 
MOV 
JMP 



SKIP 

CMDINJ 

FO 

DRACTS 
PI, #SLOW 
A. DBB 
BLKCNT, A 
RSK1P 



RBI 

A, RSTAT 
SKIPS 



025E 14B8 
0260 4457 



735 
736 
737 
738 
739 
740 

741 , 

742 SKIP 
743 
744 
745 
746 
747 
74B 
749 

750 i 

751 , FORWARD SKIP 

752 i 

753 SEL 
754 
755 
756 
757 
758 
759 

760 SKIP1 

761 SKIP2 

762 SKIP3 
763 
764 
765 
766 
767 
76B 
769 

770 SKIP4 
771 
772 

773 SKIP6 
774 
775 
776 

777 SK1P7 
778 
779 
780 
7B1 
782 
783 
784 
785 
786 

787 i 

788 .REVERSE SKIP DELAY WHEN BLOCK COUNT EXPIRED 

789 > 

790 SKIP13 CALL 

791 JMP 

792 i 



.WAIT FOR SKIP COUNT INPUT 
; TEST IF COMMAND INSTEAD - EXIT IF YES 
; CLEAR DIRECTION FLAG - DEFAULT FORUARII 
i GO SET DRIVE ACTIVE 
, START OUT SLOW 
; READ SKIP COUNT INPUT 
. SAVE IT IN BLOCK CDUNTER 
; I F BIT 7 SET. IT'S A REVERSE SKIP 



SELECT SLOW 
GO DO SKIP 
COUNT IS >8. 



P1.«F0RWD AND SRT AND RD 
RBO 
A 

SKIP2 
PASHOL 
DEL 1 50 
SKIP6 
A. BLKCNT 
A, #-8H 
SKIP4 

BLKTIM, #SLWIRG 
BLKSAV, #SLWIRG 
PI. »SLOW 
SKIP6 

BLKTIM, #FASIRG 
BLKSAV, #FASIRG 
PI, »FAST 
SKIP7 
A, PI 
SKIP8 
SKIP6 
SKIP 12 
SKIP11 
SKI PER 
SK IPS 

BLKCNT. SKIP2 
SKIP13 
RBI 

RESULT, *GOOD 
RSTAT. #00H 
RDERR3 



I GET READ STATUS 

.STATUS SAYS WE'RE AT EOT - EXIT WITH ERROR 
i IT'S GO - FORWARD 



; COMP A FOR O TEST 

: WE'RE NOT AT BOT SO JUST DO SKIP 
; AT BOT SO GET PAST CLEAR LEADER AND HOLE 
i WAIT OUT JUNK AT BEGINNING OF EACH BLOCK 
: DON'T WORRY ABOUT FAST OR SLOW WHEN REVERSE 
; GET BLOCK COUNT 
; SEE IF COUNT IS >8 
; YES, USE FAST IRG TIMING 
.COUNT IS <8, USE SLOW IRG TIMING 



USE FAST IRG TIMING 



SELECT FAST 

WAIT FOR SPACE TO START IRG FIND 
READ DRIVE STATUS 

TEST CLEAR LEADER - EXIT IF FOUND 
CONTINUE TO WAIT FOR SPACE 
TEST IBF WHILE SKIPPING 
IBF SET, GO TEST IT 
DO SKIP TO IRG 
TEST IF EOT OR BOT FOUND 
DO IT FOR ALL BLOCK COUNT 
i DELAY A LITTLE IF REVERSE 



GOOD RESULT 
CLEAR READ STATUS 
USE READ EXIT TO COMPLETE 



DEL50 
SKIP 14 
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LOC 


OBJ 


L INE 


SOURCE 


STATEMENT 








793 


, REVERSE SKIP 


IS DESIRED - SETUP 


DRIVE AND DIRECTION FLAG 






794 








0262 


95 


795 


RSKIP CPL 


FO 


SET DIRECTION FLAG 


0263 


537F 


796 


ANL 


A. »7FH 


MASK OFF DIRECTION 


0265 


AC 


797 


MOV 


BLKCNT. A 


RESTORE BLKCNT 


0266 


BD20 


798 


MOV 


BLKT in. WRWDIRG 


SET REWIND BLOCK TIMER 


0268 


BE20 


799 


MOV 


BLKSAV, KRWDIRG 




026A 


D5 


800 


SEL 


RBI 




0268 


FB 


801 


MOV 


A. RSTAT 


GET READ STATUS 


026C 


D278 


802 


JB6 


SKIPS , 


AT BOT SO EXIT WITH ERROR 


026E 


8901 


803 


DRL 


P 1 , «REWIND 


SELECT REVERSE 


0270 


99F5 


804 


ANL 


P 1 , »SRT AND RD 


START DRIVE 


0272 


C5 


805 


SEL 


RBO 




0273 


37 


806 


CPL 


A 


COMP A FOR TEST 


0274 


B22D 


807 


JB5 


SKIP2 i NOT AT EOT SO JUST DO SKIP 


0276 


442B 


808 


JMP 


SKIP1 .AT EOT SO WAIT PAST CLEAR LEADER AND HOLE 






809 












810 


. CLEAR LEADER 


FOUND DURING SKIP OR TAPE ALREADY AT EOT OR BOT 


0278 


D5 


81 1 

812 


SKIPS: SEL 


RBI 




0279 


B681 


813 


JFO 


SKIP9 


TEST DIRECTION 


027B 


BA47 


814 


MOV 


RESULT, ItSKPEOT 


IT'S FORWARD SO IT'S EOT 


027D 


BB20 


815 


MOV 


RSTAT, SEOTFLG , SET EOT FLAG 


027F 


04DF 


816 


JMP 


RDERR3 i GO EXIT 


0281 


BA4B 


817 


SKIP9 MOV 


RESULT, KSKPBOT 


IT'S REVERSE SO IT'S BOT 


0283 


BB40 


81B 


MOV 


RSTAT, #BOTFLG 


SET BOT FLAG 


0285 


04DF 


819 


JMP 


RDERR3 


GO EXIT 






820 












821 


; IBF FOUND SET DURING SKIP - TEST INPUT 






822 








0287 


22 


823 


SKIP11 IN 


A, DBB 


READ INPUT 


0288 


D305 


824 


XRL 


A, #ABORT 


TEST IF ABORT 


028A 


964F 


825 


JNZ 


SKIP12 


IGNORE IT IF NOT 


028C 


8902 


826 


ORL 


P 1 , *STP 


STOP DRIVE 


026E 


8A02 


827 


ORL 


P2. ttDAOFF 


TURN OFF DRIVE ACTIVE LED 


0290 


24DE 


828 


JMP 


ABTST1 


YES - EXIT WITH RESULT 






829 












830 
B31 


. OUT OF PAGE 


JUMP FOR CMDIN 




0292 


0433 


832 


CMDINJ: JMP 


CMD1N3 








833 












834 








835 












836 


• REWIND COMMAND - STOP WHEN CLEAR LEADER IS FOUND FOR >50MS 






837 












838 








839 








0294 


D5 


840 


REWND: SEL 


RBI 




0295 


FB 


841 


MOV 


A, RSTAT 


GET READ STATUS 


0296 


D2B8 


842 


JB6 


REWND4 ; TEST IF ALREADY AT BOT - EXIT IF YES 


0298 


C5 


843 


SEL 


RBO 




0299 


54BC 


844 


CALL 


DR AC T S 


SET DRIVE ACTIVE 


029B 


99F3 


84 5 


ANL 


PI. »RD AND FAST 


SELECT RD AND FAST 


029D 


B901 


846 


ORL 


PI , #REWIND 


SELECT REWIND 


029F 


99FD 


847 


ANL 


PI. »SRT 


START DRIVE 


02A1 


14B8 


848 


REWND 1 : CALL 


DEL50 


WAIT 50MS 


02A3 


09 


849 


IN 


A. PI ; READ DRIVE STATUS 


02A4 


92A8 


850 


JB4 


REWND2 


TEST CLEAR LEADER 


02A6 


44 A 1 


851 


JMP 


REWND1 


NO CLEAR LEADER - WAIT 


02A8 


14B8 


852 


REWND2: CALL 


DEL50 


WAIT 50MS AGAIN 


02AA 


09 


853 


IN 


A, PI 


READ DRIVE STATUS AGAIN 


02AB 


92AF 


854 


JB4 


REWND3 


AT END IF CLEAR LEADER STILL SET 


02AD 


44 A 1 


855 


JMP 


REWND 1 


OTHERWISE IT WAS JUST HOLE 


02AF 


8906 


856 


REWND3: ORL 


PI , #STP OR SLOW 


STOP DRIVE. SELECT SLOW 


02B1 


99FE 


857 


ANL 


PI, SFORWD 


SELECT FORWARD 


02B3 


14B8 


838 


CALL 


DEL 50 


WAIT 50MS FOR DRIVE RESET 


02B5 


D5 


859 


SEL 


RBI 




02B6 


BB40 


860 


MOV 


RSTAT, ttBOTFLG AND (NOT EOTFLG ) ; SET UP READ STATUS 


02B8 


BAOO 


861 


REWND4 MOV 


RESULT, #GO0D 


GOOD RESULT 


02BA 


04DF 


862 




RDERR3 iGO OUTPUT RESULT 






863 









864 *EJECT 
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LOC 


OBJ 


LINE 


SOURCE 


STATEMENT 








865 


*»**«»««»«»«*«**»*****««**»♦».**...».»**.*»»»»,»»„»«,,»»,«,,»«,»»,****» 






B66 












867 , DRIVE ACTIVE 


STATUS SUBROUTINE 


- ENTER/EXIT IN RBO 






868 , DRIVE ACTIVE 


BIT IN STATUS IS SET AND DRIVE ACTIVE LED IS TURNED ON 






869 












870 


************************************************»******#*************** 






B71 








02BC 


FF 


872 DRACTS MOV 


A, STAT 


GET STS IMAGE 


02BD 


4310 


873 


ORL 


A. **DR ACT 


SET DRIVE ACTIVE BIT 






874 


MOV 


STAT. A 


RESTORE IMAGE 


02C0 


90 


B75 


MOV 


STS. A 


UPDATE STS 


02C1 


9AFD 


876 


ANL 


P2. #DAON 


TURN ON DRIVE ACTIVE LED 


02C 3 


83 


877 


RET 




RF1 URN 






878 












879 


************************** ****** *************************************** 






880 












881 


DRIVE INACTIVE STATUS SUBROUTINE - ENTER/EXIT IN R BO 






882 


BOTH DRIVE ACTIVE AND BUSY BITS 


IN STATUS ARE RESET, DRIVE ACTIVE LED IS 






883 












884 


♦♦♦ft******************************************************************* 


02C4 


FF 


886 NDRACT: MOV 


A. STAT 


GET STS IMAGE 


02C 5 


536F 


887 


ANL 


A, SNOT (BUSY OR DRACT) i RESET DR AC T AND BUSY 


02C7 


AF 


888 


MOV 


STAT, A 


RESTORE IMAGE 


02C8 


90 


889 


MOV 


STS. A 


UPDATE STS 


02C V 


8A02 


890 


ORL 


P2, #DAOFF 


TURN OFF DRIVE ACTIVE LED 


02CB 


83 


891 


RET 










892 












893 


*********************************************************************** 






894 












895 


BUMPIT - POINTER MANAGEMENT - VALUE IN A IS INCREMENTED AND TESTED 






896 


FOR OVERFLOW 


IF OVERFLOW OCCURS, SET A TO BOTTOM OF BUFFER. 






897 












898 


ft********************************************************************** 






899 








02CC 


1 7 


900 BUMP IT: INC 


A 


INC A 


02CD 


D2D0 


901 


JB6 


OVFLOW 


TEST FOR OVERFLOW 


02CF 


83 


902 


RET 




NO OVERFLOW, RET 


02DO 


2320 


903 OVFLOW: MOV 


A, #20H 


OVERFLOW SO RESET A 


02D2 


83 


904 


RET 




RETURN 






905 












906 »EJECT 










907 


************* 


#**************************************#****************** 






908 












909 


DUMPIT - POINTER MANAGEMENT - VALUE IN A IS DECREMENTED AND TESTED 






910 


FOR UNDERFLOW. IF UNDERFLOW OCCURS, SET A TO TOP OF BUFFER. 






91 1 












912 


♦ft********************************************************************* 






913 








02D3 


07 


914 DUMPIT: DEC 


A 


DEC A 


02D4 


37 


915 


CPL 


A 




02D 3 


B2D9 


916 


UBS 


UNFLOW 


TEST IF UNDERFLOW 


02D7 


37 


917 


CPL 


A 


NO, COMP BACK 


02D8 


83 


918 


RET 




RETURN 


02D9 


233F 


919 UNFLOW: MOV 


A, #3FH 


UNDERFLOW SO RESET A 


02DB 


83 


920 


RET 




RETURN 






921 












922 


*************-********************************************************** 






923 












924 


SUBROUTINE TO GET PAST HOLE IN TAPE 






925 












926 


*********************************************************************** 






927 








02DC 


09 


928 PASHOL: IN 


A, PI 


READ DRIVE STATUS 


02DD 


92DC 


929 


JB4 


PASHOL 


WAIT UNTIL OFF CLEAR LEADER 


02DF 


09 


930 PAS1. IN 


A, PI 


READ DRIVE STATUS AGAIN 


02E0 


37 


931 


CPL 


A 


COMP A FOR TEST 


02E1 


92DF 


932 


UB4 


PAS1 


WAIT UNTIL HOLE 


02E3 


09 


933 PA52: IN 


A. PI 


READ DRIVE STATUS 


02E4 


92E3 


934 


JB4 


PAS2 


WAIT UNTIL PAST HOLE 


02E6 


83 


935 


RET 




RETURN 






936 












937 *EJECT 
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LOC 


OB J 


LINE 




SOURCE STATEMENT 




0300 




938 




ORG 


300H 








939 














940 














941 














942 

943 


. TIMER 


INTERRUPT 


ROUTINES - FIRST DECIDE IF IT'S READ OR WRITE 






944 








945 


i 








0300 


D5 


946 


1 NT 


SEL 


RB 1 




0301 


AF 


947 




MOV 


AS AVE- A 


, SAVE ACCUMULATOR 


0302 


FB 


948 




MOV 


A, RSTAT 


, GET CURRENT STATUS REGISTER 


0303 


F25E 


949 




JB7 


WR INT 


; IF RD/WR FLAG SET. IT'S A WRITE 






950 








. OTHERWISE. IT'S A READ 






951 


; 












952 














953 














954 


. READ 


INTERRUPT 


ROUTINE 








955 


• 












956 














957 


» 








0305 


97 


958 


RDINT 


CLR 


C 


. CLEAR SHIFTER 


0306 


560C 


959 




JT1 


RDI 1 


, TEST INPUT 


0308 


B612 


960 




JFO 


RDI2 


; INPUT=0, TEST LAST 


030A 


6416 


961 




JMP 


SHIFIN 


, INPUT=0, LAST=0. SHIFT IN 


030C 


B616 


962 


RDI 1 : 


JFO 


RDI3 


. INPUT=1, TEST LAST 


030E 


A7 


963 




CPL 


C 


, INPUT=1, LAST=0, SHIFT IN 1 


030F 


95 


964 




CPL 


FO 


, SET FO TO CURRENT VALUE OF DATA IN 


0310 


6416 


965 




JMP 


SHIFIN 




0312 


A7 


966 


RDI2 


CPL 


C 


, 1NPU1=0, LAST=1, SHIFT IN 1 


0313 


95 


967 




CPL 


FO 


, SET FO TO CURRENT VALUE OF DATA IN 


0314 


6416 


968 




JMP 


SH I F I N 








969 


RDI3 






. INPUT=1, LAST=1, SHIFT IN 


0316 


FD 


970 


SHIFIN 


MOV 


A, DESERL 


, GET CURRENT VALUE OF DATA BYTE 


0317 


67 


971 




RRC 


A 


.SHIFT IN NEW BIT 


03 1 8 


AD 


972 




MOV 


DESERL. A 


; RESTORE DESER I AL I ZER 


0319 


EC22 


973 




DJNZ 


BITCNT. RDI4 


i TEST IF BYTE DONE 


031 B 


AE 


974 




MOV 


RDATA. A 


;IT'S DONE, BUFFER IT IN RDATA 


03 1C 


BC08 


975 




MOV 


BITCNT, #RDCNT 


, RESET BIT COUNTER 


031E 


FB 


976 




MOV 


A, RSTAT 


, GET READ STATUS 


03 IF 


4301 


977 




ORL 


A, #RDYFLG 


; SET DATA READY FLAG 


0321 


AB 


978 




MOV 


RSTAT, A 


i RESTORE STATUS 


0322 


65 


979 


RDI4 


STOP 


TCNT 


1 STOP COUNTER 


0323 


23FA 


980 




MOV 


A, WRDTIM 


; GET TIMER CONSTANT (3/4 CELL TIME) 


0325 


62 


981 




MOV 


T. A 


; LOAD TIMER 


0326 


B933 


982 




MOV 


IRGCNT, #SLWIRG 


. LOAD I RG COUNT (READ USES SLOW SPEED) 


0328 


09 


983 


RDI7: 


IN 


A, PI 


, READ DRIVE STATUS 


0329 


9254 


984 




JB4 


RDI9 


.TEST IF CLEAR LEADER FOUND - ERROR 


032B 


564E 


' 985 




JT1 


RDI5 


; TEST INPUT LOOKING FOR EDGE 


032D 


B650 


986 




JFO 


RD16 


i INPUT=0. TEST LAST 


032F 


E928 


987 


RDI8 


DJNZ 


IRGCNT, RDI7 


, INPUT/LAST SAME, DEC I RG COUNT 


0331 


8902 


988 




ORL 


PI, *STP 


i COUNT EXPIRED. AT IRG, STOP DRIVE 


0333 


BA02 


989 




ORL 


P2, «DAOFF 


J TURN OFF DRIVE ACTIVE LED 


0335 


FB 


990 




MOV 


A. RSTAT 


i GET READ STATUS 


0336 


4308 


991 




ORL 


A. # I RGFLG 


; SET IRG FOUND FLAG 


0338 


AB 


992 




MOV 


RSTAT. A 


I RESTORE STATUS 






993 














994 


i INTERRUPT EXIT 


ROUTINE - UPDATES FO IN STACK TO PRESERVE IT OVER RETR 






995 










0339 


C7 


996 


INTEXT 


MOV 


A, PSW 


i GET CURRENT PSW FOR STACK POINTER 


033A 


5307 


997 




ANL 


A. #07H 


, LOOK AT STACK POINTER ONLY 


033C 


07 


998 




DEC 


A 


; TRYING TO GET PSW ON TOP OF STACK 


033D 


E7 


999 




RL 


A 


; 2 BYTES PER STACK ENTRY 


033E 


17 


10O0 




INC 


A 


, POINT AT PSW ENTRY 


033F 


0308 


1001 




ADD 


A, »08H 


.ADD OFFSET FOR POINTER 


0341 


A9 


1002 




MOV 


IRGCNT, A 


.LOAD POINTER - USE IRGCNT REGISTER 


0342 


Fl 


1003 




MOV 


A, SIRGCNT 


, GET PSW 


0343 


B649 


1004 




JFO 


EXIT 1 


1 TEST FO TO SEE WHAT TO SET FO TO 


0345 


53DF 


1005 




ANL 


A, »ODFH 


, F0=0 THEREFORE RESET IT 


0347 


644B 


1006 




JMP 


EXIT2 




0349 


4320 


1007 


EXIT1 


ORL 


A. «20H 


;F0=1 THEREFORE SET IT 


034B 


Al 


1008 


EXIT2 


MOV 


eiRGCNT, A 


, RESTORE STACK 


034C 


FF 


1009 




MOV 


A. AS AVE 


, RECOVER A 


034D 


93 


1010 




RETR 




; RETURN WITH RESTORE 






101 1 










034E 


B62F 


1012 


RDI5: 


JFO 


RDI8 


;INPUT=1, TEST LAST, SAME 


0350 


95 ' 


1013 


RDI6: 


CPL 


FO 


.FINALLY DIFFERENT, SET FO TO CURRENT 


0351 


55 


1014 




STRT 


T 


, START TIMER 


0352 


6439 


1015 




JMP 


INTEXT 


1 EXIT 






1016 










0354 


FB 


1017 


RDI9: 


MOV 


A, RSTAT 


i GET READ STATUS 


0355 


4320 


1018 




ORL 


A, WEOTFLG 


; SET EOT FLAG 


0357 


AB 


1019 




MOV 


RSTAT, A 


; RESTORE STATUS 


0358 


8902 


1020 




ORL 


P 1 , #STP 


. EOT SO STOP DRIVE 


035A 


BA02 


1021 




ORL 


P2, *DAOFF 


.TURN OFF DRIVE ACTIVE LED 


035C 


6439 


1022 




JMP 


INTEXT 


i EXIT 






1023 














1024 


*EJECT 
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LOC OBJ LINE SOURCE STATEMENT 







1025 












1026 












1027 


.WRITE INTERRUPT ROUTINE 








1028 


i 










1029 












1030 








035E 


23FC 


1031 


WRINT MOV 


A. «WRTIM 


GET WRITE TIME CONSTANT (1/2 CELL TIME) 


0360 


62 


1032 


MOV 


T. A 


LOAD TIMER (IT'S STILL RUNNING) 


0361 


B672 


1033 


JFO 


WRINT1 


TEST IF SECOND INT - DO NEXT BIT IF IT IS 


0363 


OA 


1034 


IN 


A. P2 


FIRST INT - COMPLEMENT DATA OUT 


0364 


126A 


1035 


JBO 


WRI 1 




0366 


BA01 


1036 


□ RL 


P2. #D0H1 




0368 


646C 


1037 


JMP 


WRI 2 




036A 


9AFE 


1038 


WR I 1 ANL 


P2. *DOLOU 




036C 


95 


1039 


WRI2 CPL 


FO 


SET SECOND INT FLAG 


036D 


09 


1040 


IN 


A. PI 


TEST FOR CLEAR LEADER 


036E 


92DC 


1041 


JB4 


CLRLED 


HANDLE IT IF IT'S FOUND 


0370 


6439 


1042 


JMP 


INTEXT 


GO EXIT 






1043 












1044 


. SECOND INTERRUPT FOR THIS BIT - 


GO GET NEXT BIT 






1045 








0372 


FB 


1046 


WRINT1 MOV 


A. WSTAT 


GET WRITE STATUS 


0373 


52BA 


1047 


JB2 


WRD4 


TEST WRITE DONE FLAG - DONE IF YES 


0375 


FD 


1048 


MOV 


A. SERIAL 


GET DATA REMAINDER 


0376 


67 


1049 


RRC 


A 


ROTATE NEXT BIT INTO CARRY 


0377 


AD 


1050 


MOV 


SERIAL, A 


RESTORE DATA 


0378 


E683 


1051 


JNC 


WRI 3 


TEST NEXT BIT 


037A 


OA 


1052 


IN 


A, P2 


IF - NO CHANGE IN OUTPUT 


037B 


1281 


1053 


JBO 


WRI 4 


IF 1 - COMPLEMENT OUTPUT 


037D 


8A01 


1054 


□RL 


P2. ttDOHI 




037F 


6483 


1055 


JMP 


WRI 3 




0381 


9AFE 


1056 


WRI 4 ANL 


P2, «DOLOW 




0383 


85 


1057 


WRI3 CLR 


FO 


RESET SECOND INT FLAG 


03B4 


EC39 


105B 


DJNZ 


BITCNT. INTEXT 


EXIT IF CHR NOT DONE 


0386 


BCOB 


1059 


MOV 


BITCNT, ttWRCNT 


CHR IS DONE SO RESET BIT COUNTER 


0388 


FB 


1060 


MOV 


A, WSTAT 


GET WRITE STATUS 


0389 


12AA 


1061 


JBO 


WRD2 


TEST CHECKSUM FLAG 


03BB 


32B3 


1062 


JB1 


WRD3 


TEST SYNC FLAG 


03BD 


C5 


1063 


SEL 


RBO 








1064 












1065 


. NO SPEC I AL CHR 


BEING DONE - DEC 


BYTE COUNTER AND TEST IF DONE 






1066 








038E 


EB94 


1067 


DJNZ 


CNTLSB . WRI5 


DEC LSB - IF NON-ZERO GET NEXT BYTE 


0390 


F9 


1068 


MOV 


A, CNTMSB 


IF ZERO, GET MSB AND TEST IT 


0391 


C6A1 


1069 


JZ 


WRD1 


IF MSB IS ZERO - DONE, GO WRITE CHECKSUM 


0393 


C9 


1070 


DEC 


CNTMSB 


MSB IS NON-ZERO SO DEC IT 


0394 


D6CA 


1071 


WRI5. JNIBF 


WRURUN 


NOT DONE WITH ALL BYTES, 






1072 






IS THE NEW DATA IN DBB I N YET ? NO - UNDtRRUN 


0396 


22 


1073 


IN 


A. DBB 


YES, READ IT 


0397 


AC 


1074 


MOV 


TEMPI, A 


SAVE IT 


039B 


76CF 


1075 


JF1 


WCOMD 


BE SURE IT WASN'T A COMMAND 


039A 


6B 


1076 


ADD 


A, CHKSUM 


IT'S DATA, ADD TO CHECKSUM 


039B 


AB 


1077 


MOV 


CHKSUM, A 


RESTORE CHECKSUM 


039C 


FC 


107B 


MOV 


A, TEMPI 


GET DATA AGAIN 


039D 


D5 


1079 


SEL 


RBI 




039E 


AD 


1080 


MOV 


SER I AL, A 


PUT DATA IN SER I AL I ZER 


039F 


6439 


1081 


JMP 


INTEXT 


GO EXIT 






1082 












1083 


; BYTE COUNT DONE - WRITE CHECKSUM 






1084 








03A1 


FB 


1085 


WRD1 MOV 


A. CHKSUM 


GET CHECKSUM 


03A2 


D5 


1086 


SEL 


RBI 




03A3 


AD 


1087 


MOV 


SERIAL, A 


PUT IT IN SER I AL I ZER 


03A4 


FB 


1088 


MOV 


A, WSTAT 


GET WRITE STATUS 


03A5 


4301 


1089 


ORL 


A, WCKSFLG 


SET CHECKSUM FLAG 


03A7 


AB 


1090 


MOV 


WSTAT, A 


RESTORE STATUS 


03A8 


6439 


1091 


JMP 


INTEXT 


GO EXIT 






1092 












1093 


. CHECKSUM BYTE 


DONE - DO SYNC 








1094 








03AA 


53FE 


1095 


WRD2 ANL 


A, »NOT CKSFLG 


RESET CHECKSUM FLAG 


03AC 


4302 


1096 


ORL 


A, KSYNFLG 


SET SYNC FLAG 


03AE 


AB 


1097 


MOV 


WSTAT, A 


RESTORE STATUS 


03AF 


BDAA 


1098 


MOV 


SERIAL, «SYNC 


PUT SYNC IN SER I AL 1 ZER 


03B1 


6439 


1099 


JMP 


INTEXT 


GO EXIT 






1 100 












1 101 


; SYNC DONE - SET WRITE DONE FLAG 








1102 








03B3 


53FD 


1103 


WRD3 ANL 


A. »NOT SYNFLG 


RESET SYNC FLAG 


03B5 


4304 


1 104 


ORL 


A, «WRDFLG 


SET WRITE DONE FLAG 


03B7 


AB 


1 105 


MOV 


WSTAT, A 


RESTORE WRITE STATUS 


03BB 


6439 


1 106 


JMP 


INTEXT 


GO EXIT 






1 107 












1 lOB 


.WRITE DONE FLAG FOUND SET - COMPLETELY DONE SO STOP AND RESET BUSY 






1 109 








03BA 


BAOO 


1110 


WRD4 MOV 


RESULT. »GOOD 


GOOD RESULT 


03BC 


8A01 


1 1 1 1 


WR DON ORL 


P2, »DOHI 


SET OUTPUT TO 1 


03BE 


65 


1 112 


STOP 


TCNT 


STOP TIMER 


03BF 


8902 


1113 


ORL 


PI, »STP 


STOP DRIVE 


03C1 


8A02 


1 114 


ORL 


P2, *DAOFF 


TURN OFF DRIVE ACTIVE LED 


03C3 


D5 


1115 


SEL 


RBI 




03C4 


FB 


1116 


MOV 


A, WSTAT 


GET WRITE STATUS 


03C5 


537D 


1117 


ANL 


A, »NOT (WRFLG OR 


SYNFLG ) ; RESET WR/RD FLAG 


03C7 


AB 


111B 


MOV 


WSTAT , A 


RESTORE STATUS 



30 



03C8 6439 



03CA D5 
03CB BA81 
03CD 64BC 



03CF 
03DO 
03D2 
03D4 
03D6 
03DB 
03DA 



D5 

D305 

C6D8 

BAB2 

64BC 

B AO 1 

64BC 



03DC BAB3 

03DE FB 

03DF 4320 

03E1 AB 

03E2 64BC 



1 119 
1 120 
1121 
1122 
1123 
1124 
1 125 
1 126 
1127 
1 12B 
1 129 
1 130 
1131 
1 132 
1 133 
1 134 
1 135 
1 136 
1137 
1 138 
1 139 
1140 
1 141 
1 142 
1 143 
1 144 
1 145 



JMP INTEXT GO EXIT 

ONDERRUN OCCURRED 

WRURUN SEL RBI 

MOV RESULT. *UNDERW , UNDERRUN ERROR CODE 

JMP WRDON .EXIT 

.COMMAND FOUND WHEN DATA EXPECTED - CHECK IF ABORT 



WCOMD SEL 
XRL 
JZ 
MOV 
JMP 
MOV 
JMP 



WC l 



RBI 

A. »ABORT 
UC1 

RESULT, «WCMDER 
WRDON 

RESULT. BABTCMP 
WRDON 



. COMPARE TO ABORT 

/ YES. THEN ABORT 

i NO, DATA ERROR RESULT CODE 

i EXIT 

; ABORT COMPLETE RESULT COE 



, CLEAR LEADER FOUNMD DURING WRITE 
CLRLED 



MOV 
MOV 
ORL 
MOV 
JMP 



RESULT, «EOTERR 
A, WSTAT 
A, KEOTFLG 
WSTAT, A 
WRDON 



, CLEAR LEADER ERROR CODE 
i GET WRITE STATUS 
i SET EOT FLAG 
, RESTORE STATUS 
i EXIT 



USER SYMBOLS 



ABORT 


0005 


ABTCMP 


0001 


AB T ST 


1 DA 


ABTST1 


01DE 


ART JMP 


0044 


ASAVE 


0007 


Bl 


0017 


B2 


001F 


BADCHS 


0044 


BEGIN 


0009 


B I TCNT 


0OO4 


ELKCNT 


0004 


BLKSAV 


0006 


BLKTIM 


0005 


BOTFLG 


0040 


BUF1 


01C7 


)UF2 


01CB 


BUFFER 


01C0 


BUMP IT 


02CC 


BUSY 


0080 


CHKSUM 


0003 


CKSER 


01BE 


CKSFLG 


0001 


CLRLED 


03DC 


CLRTF 


0059 


CMDERR 


0002 


CMDIN 


0023 


CMDIN1 


002C 


CMDIN2 


003A 


CMDIN3 


0033 


CMDINJ 


0292 


CMDJMP 


0O3E 


CMDSAV 


0002 


CNTLSB 


0000 


CNTMSB 


0001 


DAOFF 


O0O2 


DAON 


OOFD 


DELI 


OOBA 


DEL 150 


00C1 


DELS 


OOBC 


DEL 50 


OOBB 


DESERL 


0005 


DOH1 


OOOl 


DOLOW 


OOFE 


DR 1 


OOCD 


DRACT 


0010 


DRACTS 


02BC 


DRIVER 


00C5 


DRIVJ 


014F 


DUMP I T 


02D3 


EOTERR 


0083 


EOTFLG 


0020 


EXIT1 


0349 


EXIT2 


034B 


FAS I RG 


0020 


FAST 


OOFB 


FILPRT 


0020 


FOR WD 


OOFE 


GETDAT 


0151 


GOOD 


OOOO 


INT 


0300 


INTEXT 


0339 


IRGCNT 


0001 


IRGF1 


01BA 


1RGFLG 


0008 


IRGFND 


0191 


LB I N 


oooo 


LBOUT 


0000 


LBRDY 


0001 


LBTST 


0177 


NDR ACT 


02C4 


NINMSB 


006D 


NOFULL 


0162 


NT 


OODO 


NTAPE 


0003 


NWR 


0004 


OVERUN 


0041 


OVFLOW 


02D0 


PAS1 


02DF 


PAS2 


02E3 


PASHOL 


02DC 


RCLRTF 


0103 


RCMDER 


004 5 


RD 


00F7 


RDI 


0127 


RD 1 A 


012B 


RD2 


012D 


RD3 


0130 


RD4 


0135 


RDATA 


0006 


RDCMD 


0001 


RDCNT 


O0O8 


RDERR 


00D4 


RDERR2 


00F1 


RDERR3 


OODF 


RDERR4 


OOE3 


RDERR5 


00E7 


RDERR6 


OOFS 


RDI 1 


030C 


RDI2 


0312 


RDI3 


0316 


RDI4 


0322 


RDI5 


034E 


RDI6 


0350 


RDI7 


032B 


RDIB 


032F 


RDI9 


0354 


RDIBF 


01D5 


RDINT 


0305 


RDTIM 


FFFA 


RDYFLG 


0001 


READ 


0100 


REDJMP 


0046 


REOT 


014B 


REOTER 


0046 


RESCMD 


0000 


RESCOM 


004E 


RESET 


0000 


RESJMP 


0044 


RESULT 


0002 


REWIND 


0001 


REWJMP 


004C 


REWND 


0294 


REWND1 


02 A 1 


REWND2 


02A8 


REWND3 


02AF 


REWND4 


02BB 


RSKIP 


0262 


R5NB 


018B 


RSTAT 


0003 


RWCMD 


0004 


RWDIRG 


0020 


SERIAL 


0005 


SHIF1N 


0316 


SKCMD 


O003 


SKIP 


0214 


SKI PI 


022B 


SK I P 1 1 


0287 


SKIP 12 


024F 


SKIP 13 


02 5E 


SKIP 14 


0257 


SKIP2 


022D 


SKIP3 


022F 


SKIP4 


023E 


SKIP6 


0244 


SKIP7 


024B 


SKIP8 


0278 


SK IP? 


0281 


SKI PER 


02O0 


SKIPR1 


0206 


SKIPR2 


020C 


SKI PR 3 


0212 


SKPBOT 


0048 


SKPEOT 


0047 


SKPJMP 


004A 


SLOW 


0004 


SLW1RG 


0033 


SNBFLG 


0002 


SNBTST 


0182 


SRT 


OOFD 


STAT 


0007 


STP 


0002 


STRFLG 


0004 


STSUP 


OOAD 


SYNC 


OOAA 


SYNC1 


0042 


SYNC2 


0043 


SYNFLG 


0O02 


TAP IN 


0040 


TEMPO 


0006 


TEMPI 


0004 


TIMINT 


0007 


UNDERW 


0081 


UNFLOW 


02D9 


WC1 


03D8 


WCMDER 


0082 


WCOMD 


03CF 


WEOTER 


00A9 


WR 


0008 


WR1 


005B 


WR2 


0O61 


WR3 


008D 


WR4 


0098 


WR5 


009F 


WRCMD 


0002 


WRCNT 


OOOB 


WRD1 


03A1 


WRD2 


03AA 


WRD3 


03B3 


WRD4 


03BA 


WRDFLG 


0004 


WRDON 


03BC 


WRFLG 


0080 


WRI1 


036A 


WRI2 


036C 


WRI3 


0383 


WRI4 


0381 


WRI5 


0394 


WR INT 


035E 


WRINT1 


0372 


WRITE 


0055 


WRTIM 


FFFC 


WRTJMP 


004S 


WRURUN 


03CA 


WSTAT 


0003 















D 



ASSEMBLY COMPLETE, 



NO ERRORS 
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